'////////////////////////// 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   

'////////////////////////// end //////////////////////////////////////////