批处理创建IIS虚拟目录

前段时间做一个OA，做SETUP时用到了这个
现在贴出来和大家分享下

' Creates\removes IIS Virtual Folders
if WScript.Arguments.Count<2 then
WScript.Echo "Wrong arguments."
WScript.Quit(0)
end if
sAction = WScript.Arguments(0)
if sAction="Create" then
if WScript.Arguments.Count<3 then
WScript.Echo "Wrong arguments."
WScript.Quit(0)
end if
sName = WScript.Arguments(1)
sPath = WScript.Arguments(2)
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
sPath = fso.GetAbsolutePathName(sPath)
If Err.Number<>0 then
Err.Clear
WScript.Echo "Can't create '" & sName & "': invalid virtual folder path."
WScript.Quit(0)
end if
Set oIIS = GetObject("IIS://localhost/W3SVC/1/Root")
If Err.Number<>0 then
Err.Clear
WScript.Echo "Error creating '" & sName & "' virtual folder: can't access IIS."
WScript.Quit(0)
end if
Set oDir = oIIS.GetObject("IISWebVirtualDir", sName)
' This will return error -2147024893 if it doesn't exist
If Err.Number=0 then
WScript.Echo "Can't create '" & sName & "': virtual folder already exists."
WScript.Quit(0)
end if
Err.Clear
Set oDir = oIIS.Create("IISWebVirtualDir", sName)
oDir.AccessScript = True
oDir.Path = sPath
oDir.SetInfo
oDir.AppCreate True
oDir.SetInfo
elseif sAction="Remove" then
sName = WScript.Arguments(1)
On Error Resume Next
Set oIIS = GetObject("IIS://localhost/W3SVC/1/Root")
If Err.Number<>0 then
Err.Clear
WScript.Echo "Error removing '" & sName & "' virtual folder: can't access IIS."
WScript.Quit(0)
end if
Set oDir = GetObject("IIS://localhost/W3SVC/1/Root/" & sName)
If Err.Number<>0 then
Err.Clear
WScript.Echo "Error removing '" & sName & "': virtual folder doesn't exist."
WScript.Quit(0)
else
Err.Clear
'No error so directory registration exists, we need to remove it
Set oIIS = GetObject("IIS://localhost/W3SVC/1")
Set oRoot = oIIS.GetObject("IIsWebVirtualDir","Root")
oRoot.Delete "IIsWebVirtualDir", sName
End if
end if

保存成VBS文件
@echo 创建虚拟目录
wscript.exe create.vbs Create 目录名称（运行时替换） "%cd%"
@echo 虚拟目录创建成功
保存成BAT文件 "%cd%"表示当前目录