CreateWeb.vbs 代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
''''''''''''''''''''''''''''''''' FunctionfindWeb(computer,webname) OnErrorResumeNext Dimwebsvc,site dimwebinfo DimaBinding,binding setwebsvc=GetObject("IIS://"&computer&"/W3svc") if(Err<>0)then exitfunction endif ''Firsttrytoopenthewebname. setsite=websvc.GetObject("IIsWebServer",webname) if(Err=0)and(notisNull(site))then if(site.class="IIsWebServer")then ''Herewefoundasitethatisawebserver. setfindWeb=site exitfunction endif endif err.clear foreachsiteinwebsvc ifsite.class="IIsWebServer"then '' ''First,checktoseeiftheServerComment ''matches '' Ifsite.ServerComment=webnameThen setfindWeb=site exitfunction EndIf aBinding=site.ServerBindings if(IsArray(aBinding))then ifaBinding(0)=""then binding=Null else binding=getBinding(aBinding(0)) endif else ifaBinding=""then binding=Null else binding=getBinding(aBinding) endif endif ifIsArray(binding)then if(binding(2)=webname)or(binding(0)=webname)then setfindWeb=site exitfunction EndIf endif endif next EndFunction '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''Getsbindinginfo. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' functiongetBinding(bindstr) Dimone,two,ia,ip,hn one=Instr(bindstr,":") two=Instr((one+1),bindstr,":") ia=Mid(bindstr,1,(one-1)) ip=Mid(bindstr,(one+1),((two-one)-1)) hn=Mid(bindstr,(two+1)) getBinding=Array(ia,ip,hn) endfunction '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''Displayserrormessage. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' SubDisplay(Msg) WScript.EchoNow&".ErrorCode:"&Hex(Err)&"-"&Msg EndSub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''Displayprogress/tracemessage. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' SubTrace(Msg) WScript.EchoNow&":"&Msg EndSub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''Removetheweb. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' SubDeleteWeb(WebServer,WebName) ''deletetheexsitingweb(ignoreerrorifmissing) OnErrorResumeNext DimvDir display"deleting"&WebName WebServer.Delete"IISWebVirtualDir",WebName WebServer.SetInfo IfErr=0Then DISPLAY"WEB"&WebName&"deleted." else display"can''tfind"&webname EndIf EndSub |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: 一个扩展时间段的dir命令的vbs脚本下一篇: 用VBS记录客户机操作的代码
关于CreateWeb.vbs 代码的所有评论