参照了InetpubAdminScriptsadsutilvbs写的创建虚拟目.docVIP

参照了Inetpub\AdminScripts\adsutil.vbs写的创建虚拟目录的脚本： ////////////////////////// begin ////////////////////////////////////////// On Error Resume Next strVirtualDirectoryName = InputBox(请输入虚拟目录名) If strVirtualDirectoryName = Then msgbox(输入错误，程序结束！) WScript.Quit End If strVirtualDirectoryPath=InputBox(请输入网站文件所在的目录名（例如：e:\web）) If strVirtualDirectoryPath = Then msgbox(输入错误，程序结束！) WScript.Quit End If strVirtualDirectoryPath = Replace(strVirtualDirectoryPath,/,\) Set MyFso = CreateObject(Scripting.FileSystemObject) If MyFso.FolderExists(strVirtualDirectoryPath) = 0 then msgbox(文件夹strVirtualDirectoryPath不存在！) Else Set objIIS = GetObject(IIS://localhost/W3SVC/1/Root) Set objVirtualDirectory = objIIS.Create(IISWebVirtualDir,strVirtualDirectoryName) If (Err.Number 0) Then 如果虚拟目录已存在或有其他错误时则为真 Err.Clear Set myDir = objIIS.GetObject(IIsWebVirtualDir,strVirtualDirectoryName) 创建虚拟目录对象 If (Err.Number 0) Then 虚拟目录不存在时则为真，说明是其他未知错误，否则为虚拟目录已存在 msgbox(对不起，发生未知错误，操作失败！) WScript.Quit (Err.Number) end if m=msgbox (虚拟目录strVirtualDirectoryName已存在,是否删除？,1+32,删除确认) if m1 then WScript.Quit end if objIIS.Delete IIsObject, strVirtualDirectoryName If (Err.Number 0) Then msgbox(删除虚拟目录strVirtualDirectoryName失败) WScript.Quit (Err.Number) end if Set objVirtualDirectory = objIIS.Create(IISWebVirtualDir,strVirtualDirectoryName) objVirtualDirectory.AccessScript = true objVirtualDirectory.Path = strVirtualDirectoryPath objVirtualDirectory.EnableDefaultDoc=True objVirtualDirectory.DefaultDoc=index.htm objVirtualDirectory.AppFriendlyName=strVirtualDirectoryName objVirtualDirectory.SetInfo objVirtualDirectory.AppCreate true bolInProcessApplication msgbox(操作成功!虚拟目录strVirtualDirectoryName建立成功，vbCrLf请在浏览器地址栏中输入http://localhost/strVirtualDirectoryName/查看效果) else objVirtualDirectory.AccessScript = true objVirtualDirectory.Path = strVirtualDirectoryPath objVirtualDirectory.EnableDefaultDoc=True objVirtualDirectory.DefaultDoc=index.htm objVirtualDirectory.AppFri