vbscript自动配置IIS

2005-3-31 07:28 1048 0

摘要: 来源：http://www.huam.net 最近因为参与一项WEB工程的缘故,写了一个VBScript的程序，用于配置IIS的虚拟目录。特写出来大家一起分享。源程序如下：（已在Win2000...

关键词： VirDir 目录 strVRName strServerName DefaultDoc ThenMsgBox vbcriticalWscrip IISWebVirtualDir Error strDefaultDoc

来源：http://www.huam.net 最近因为参与一项WEB工程的缘故,写了一个VBScript的程序，用于配置IIS的虚拟目录。特写出来大家一起分享。源程序如下：（已在Win2000通过） strServerName ="localhost"strRootPath="g:\documents" ''虚拟目录路径strVRName="Test" ''虚拟目录名称strDefaultDoc="index.asp" ''起始文档 Dim objIIS''MsgBox "IIS://" & strServerName & "/W3SVC/1" On Error Resume NextSet objIIS=GetObject("IIS://" & strServerName & "/W3SVC/1") If err=-2147024893 ThenMsgBox "IIS不存在!" & vbcrlf & "请验证IIS是否已正确安装!",vbcriticalWscript.QuitElseIf err<>0 ThenMsgBox "未知错误!",vbcriticalWscript.QuitEnd If On Error GoTo 0 Set objVirtualDir=objIIS.GetObject("IISWebVirtualDir","Root")For each VR in objVirtualDirIf VR.Name=strVRName ThenMsgBox "虚拟目录" & strVRName & "已存在!",vbinformationWscript.QuitEnd IfNext On Error Resume NextSet fs=Wscript.CreateObject("Scripting.FileSystemObject")Set objFolder=fs.GetFolder(strRootPath) If err=76 Then MsgBox "路径" & strRootPath & "不存在!",vbcriticalWscript.QuitEnd If Set objFolder=nothingSet fs=nothingOn Error GoTo 0 On Error Resume NextSet VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)VirDir.AccessRead=trueVirDir.Path=strRootPathVirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDoc VirDir.setInfo If err<>0 ThenMsgBox "创建虚拟目录失败!",vbcriticalElseMsgBox "虚拟目录" & strVRName & "成功创建在服务器" & strServerName & "上!",vbinformationEnd If 代码的关键在于创建虚拟目录，及其中的配置： Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName)VirDir.AccessRead=trueVirDir.Path=strRootPathVirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDoc VirDir.setInfo

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除