vbscript自动配置IIS的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
复制代码 代码如下: strServerName=""localhost"" strRootPath=""g:\documents""''''虚拟目录路径 strVRName=""Test""''''虚拟目录名称 strDefaultDoc=""index.asp""''''起始文档 DimobjIIS ''''MsgBox""IIS://""&strServerName&""/W3SVC/1"" OnErrorResumeNext SetobjIIS=GetObject(""IIS://""&strServerName&""/W3SVC/1"") Iferr=-2147024893Then MsgBox""IIS不存在!""&vbcrlf&""请验证IIS是否已正确安装!"",vbcritical Wscript.Quit ElseIferr<>0Then MsgBox""未知错误!"",vbcritical Wscript.Quit EndIf OnErrorGoTo0 SetobjVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"") ForeachVRinobjVirtualDir IfVR.Name=strVRNameThen MsgBox""虚拟目录""&strVRName&""已存在!"",vbinformation Wscript.Quit EndIf Next OnErrorResumeNext Setfs=Wscript.CreateObject(""Scripting.FileSystemObject"") SetobjFolder=fs.GetFolder(strRootPath) Iferr=76Then MsgBox""路径""&strRootPath&""不存在!"",vbcritical Wscript.Quit EndIf SetobjFolder=nothing Setfs=nothing OnErrorGoTo0 OnErrorResumeNext SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName) VirDir.AccessRead=true VirDir.Path=strRootPath VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc VirDir.setInfo Iferr<>0Then MsgBox""创建虚拟目录失败!"",vbcritical Else MsgBox""虚拟目录""&strVRName&""成功创建在服务器""&strServerName&""上!"",vbinformation EndIf 代码的关键在于创建虚拟目录,及其中的配置: SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName) VirDir.AccessRead=true VirDir.Path=strRootPath VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc VirDir.setInfo |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: 利用vbs脚本实现设置IE的打印页眉页脚信息下一篇: 什么是 WSH(脚本宿主)的详细解释
关于vbscript自动配置IIS的代码的所有评论