改进后的mkw3site.vbs(创建虚拟目录)
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
"Errorsettinghomedirectory." EndIf Trace"Websitecreated!" IfStart=TrueThen Trace"Attemptingtostartnewwebserver..." Err.Clear SetNewWebServer=GetObject("IIS://"&comp&"/w3svc/"&Index) NewWebServer.Start IfErr.Number<>0Then Display"Errorstartingwebserver!" Err.Clear Else Trace"Webserverstartedsuccesfully!" EndIf EndIf Next CallASTSetPerms(comp,Index,ArgRootDirectory,prop,propNum) EndSub SubASTSetPerms(comp,ArgSiteNumber,ArgRootDirectory,propList,propCount) ''OnErrorResumeNext DimoAdmin DimfullPath fullPath="IIS://"&comp&"/w3svc/"&ArgSiteNumber&"/ROOT" Trace"Openingpath"&fullPath SetoAdmin=GetObject(fullPath) IfErr.Number<>0Then DisplayError_NoNode WScript.Quit(1) EndIf Dimname,val ifpropCount>0then Dimi fori=0topropCount-1 name=propList(i,0) val=propList(i,1) ifverbose=truethen Trace"Setting"&fullPath&"/"&name&"="&val endif oAdmin.Putname,(val) IfErr<>0Then Display"Unabletosetproperty"&name EndIf next oAdmin.SetInfo IfErr<>0Then Display"不能保存更新信息." EndIf endif EndSub ''Displaytheusagemessage SubDisplayUsage WScript.Quit(1) EndSub SubDisplay(Msg) WScript.EchoNow&".ErrorCode:"&Hex(Err)&"-"&Msg EndSub SubTrace(Msg) ifverbose=truethen WScript.EchoNow&":"&Msg endif EndSub |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: 用vbs删除前一天创建的备份文件下一篇: 用vbs计算某个词在日志文件中的出现次数
关于改进后的mkw3site.vbs(创建虚拟目录)的所有评论