用vbs控制iis创建虚拟目录的代码

参照了inetpub\adminscripts\adsutil.vbs写的创建虚拟目录的脚本： 

'////////////////////////// begin //////////////////////////////////////////  

on error resume next  
strvirtualdirectoryname = inputbox("请输入虚拟目录名")  
if strvirtualdirectoryname = "" then  
msgbox("输入错误，程序结束！")  
wscript.quit  
end if  
strvirtualdirectorypath=inputbox("请输入网站文件所在的目录名（例如：e:\web）")  
if strvirtualdirectorypath = "" then  
msgbox("输入错误，程序结束！")  
wscript.quit  
end if  
strvirtualdirectorypath = 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 if  
end if  
set myfso = nothing  

'////////////////////////// end //////////////////////////////////////////  

在做安装的asp程序时可以参照上面的脚本。 
以上的程序也可以改写为asp的脚本，只是在运行该asp页面时要注意一点，该asp页面所在的虚拟目录的匿名登陆用户必须要为administrator，否则浏览器会提示权限不够的提示！ 
使用同样的方式也可以来创建web站点，具体可以参照inetpub\adminscripts\adsutil.vbs。