用vbs控制iis创建虚拟目录

参照了inetpub\adminscripts\adsutil.vbs写的创造假造目次的剧本：'////////////////////////// begin //////////////////////////////////////////on error resume nextstrvirtualdirectoryname = inputbox("请输出假造目次名")if strvirtualdirectoryname = "" then msgbox("输出缺点，步调中断！") wscript.quitend ifstrvirtualdirectorypath=inputbox("请输入彀站文献地方的目次名（比方：e:\web）")if strvirtualdirectorypath = "" then msgbox("输出缺点，步调中断！") wscript.quitend ifstrvirtualdirectorypath = replace(strvirtualdirectorypath,"/","\")set myfso = createobject("scripting.filesystemobject")if myfso.folderexists(strvirtualdirectorypath) = 0 then msgbox("文献夹"&strvirtualdirectorypath&"不生存！")else set objiis = getobject("iis://localhost/w3svc/1/root") set objvirtualdirectory = objiis.create("iiswebvirtualdir",strvirtualdirectoryname) if (err.number <> 0) then '即使假造目次已生存或有其余缺点时则为真 err.clear set mydir = objiis.getobject("iiswebvirtualdir",strvirtualdirectoryname) '创造假造目次东西 if (err.number <> 0) then '假造目次不生存时则为真，证明是其余未知缺点，要不为假造目次已生存 msgbox("抱歉，爆发未知缺点，操纵波折！") wscript.quit (err.number) end if m=msgbox ("假造目次"&strvirtualdirectoryname&"已生存,能否简略？",1+32,"简略确认") if m<>1 then wscript.quit end if objiis.delete "iisobject", strvirtualdirectoryname if (err.number <> 0) then msgbox("简略假造目次"&strvirtualdirectoryname&"波折") wscript.quit (err.number) end if 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 msgbox("操纵胜利!假造目次"&strvirtualdirectoryname&"创造胜利，"&vbcrlf&"请在欣赏器地方栏中输出http://localhost/"&strvirtualdirectoryname&"/察看功效") else objvirtualdirectory.accessscript = true objvirtualdirectory.path = strvirtualdirectorypath objvirtualdirectory.enabledefaultdoc=true objvirtualdirectory.defaultdoc="index.htm" objvirtualdirectory.appfriendlyname=strvirtualdirectoryname objvirtualdirectory.setinfo objvirtualdirectory.appcreate true 'bolinprocessapplication msgbox("操纵胜利!假造目次"&strvirtualdirectoryname&"创造胜利，"&vbcrlf&"请在欣赏器地方栏中输出http://localhost/"&strvirtualdirectoryname&"/察看功效") end ifend ifset myfso = nothing'////////////////////////// end ////////////////////////////////////////// 在做安置的asp步调时不妨参照上头的剧本。 之上的步调也不妨改写为asp的剧本，不过在运转该asp页面时要提防一点，该asp页面地方的假造目次的隐姓埋名登岸用户必需要为administrator，要不欣赏器会提醒权力不够的提醒！ 运用同样的办法也不妨来创造web站点，简直不妨参照inetpub\adminscripts\adsutil.vbs。