当前位置： 移动技术网 > IT编程>脚本编程>VBScript > vbscript自动配置IIS的代码

vbscript自动配置IIS的代码

2017年12月12日  | 移动技术网IT编程  | 我要评论

邹家华的女婿苏树林,成人类游戏,电子版报纸

复制代码 代码如下:

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


您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网