IIS服務器自動添加虛擬目錄

1. 保存代碼爲.vbs文件

 

'////////////////////////// begin ////////////////////////////////////////// 

On Error Resume Next 

'定義數組獲取參數
Set objArgs = WScript. Arguments
'獲取第一個參數，爲虛擬目錄名稱
strVirtualDirectoryName = objArgs(0)
'獲取第二個參數，爲虛擬目錄路徑 
strVirtualDirectoryPath = objArgs(1)


'屬性定義
strVirtualDirectoryPath = Replace(strVirtualDirectoryPath,"/","\") 
Set MyFso = CreateObject("Scripting.FileSystemObject") 
Set objIIS = GetObject("IIS://localhost/W3SVC/1/Root") 
Set objVirtualDirectory = objIIS.Create("IISWebVirtualDir",strVirtualDirectoryName) 
Set myDir = objIIS.GetObject("IIsWebVirtualDir",strVirtualDirectoryName)  
'創建
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 

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

 

2.命令行執行方法，也可以通過bat來調用腳本

 

xxx.vbs directoryName directoryPatch