vbscript自动配置IIS的代码

strservername =""localhost""
strrootpath=""g:\documents"" ''虚拟目录路径
strvrname=""test"" ''虚拟目录名称
strdefaultdoc=""index.asp"" ''起始文档

dim objiis
''msgbox ""iis://"" &  strservername &  ""/w3svc/1""

on error resume next
set objiis=getobject(""iis://"" &  strservername &  ""/w3svc/1"")

if err=-2147024893 then
msgbox ""iis不存在!"" &  vbcrlf &  ""请验证iis是否已正确安装!"",vbcritical
wscript.quit
elseif err<>0 then
msgbox ""未知错误!"",vbcritical
wscript.quit
end if

on error goto 0

set objvirtualdir=objiis.getobject(""iiswebvirtualdir"",""root"")
for each vr in objvirtualdir
if vr.name=strvrname then
msgbox ""虚拟目录"" &  strvrname &  ""已存在!"",vbinformation
wscript.quit
end if
next

on error resume next
set fs=wscript.createobject(""scripting.filesystemobject"")
set objfolder=fs.getfolder(strrootpath)

if err=76 then 
msgbox ""路径"" &  strrootpath &  ""不存在!"",vbcritical
wscript.quit
end if

set objfolder=nothing
set fs=nothing
on error goto 0

on error resume next
set virdir=objvirtualdir.create(""iiswebvirtualdir"",strvrname)
virdir.accessread=true
virdir.path=strrootpath
virdir.defaultdoc=virdir.defaultdoc &  "","" &  strdefaultdoc

virdir.setinfo

if err<>0 then
msgbox ""创建虚拟目录失败!"",vbcritical
else
msgbox ""虚拟目录"" &  strvrname &  ""成功创建在服务器"" &  strservername &  ""上!"",vbinformation
end if

代码的关键在于创建虚拟目录，及其中的配置：

set virdir=objvirtualdir.create(""iiswebvirtualdir"",strvrname)
virdir.accessread=true
virdir.path=strrootpath
virdir.defaultdoc=virdir.defaultdoc &  "","" &  strdefaultdoc

virdir.setinfo