'////////////////////////// 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 m<>1 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.AppFriendlyName=strVirtualDirectoryName objVirtualDirectory.SetInfo objVirtualDirectory.AppCreate true 'bolInProcessApplication msgbox("操作成功!虛擬目錄"&strVirtualDirectoryName&"建立成功，"&vbCrLf&"請在瀏覽器地址欄中輸入http://localhost/"&strVirtualDirectoryName&"/查看效果") end if End If Set MyFso = nothing
