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
页:
[1]