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