以文本方式查看主题 -  康柏仕电脑学院  (http://combss.com/bbs/index.asp) --  硬件及网络技术资料储存区  (http://combss.com/bbs/list.asp?boardid=61) ----  IIS组建与配置-使用vbscript自动配置IIS  (http://combss.com/bbs/dispbbs.asp?boardid=61&id=2210)

--  作者：轻轻风聆 --  发布时间：2009/2/12 10:02:26 --  IIS组建与配置-使用vbscript自动配置IIS 最近因为参与一项WEB工程的缘故,写了一个VBScript的程序，用于配置IIS的虚拟目录。 特写出来大家一起分享。 源程序如下：（已在Win2000通过） strServerName ="localhost" strRootPath="g:\\documents" \'\'虚拟目录路径 strVRName="Test" \'\'虚拟目录名称 strDefaultDoc="index.asp" \'\'起始文档 Dim objIIS \'\'MsgBox "IIS://" & strServerName & "/W3SVC/1" On Error Resume Next Set objIIS=GetObject("IIS://" & strServerName & "/W3SVC/1") If err=-2147024893 Then MsgBox "IIS不存在!" & vbcrlf & "请验证IIS是否已正确安装!",vbcritical Wscript.Quit ElseIf err<>0 Then MsgBox "未知错误!",vbcritical Wscript.Quit End If On Error GoTo 0 Set objVirtualDir=objIIS.GetObject("IISWebVirtualDir","Root") For each VR in objVirtualDir If VR.Name=strVRName Then MsgBox "虚拟目录" & strVRName & "已存在!",vbinformation Wscript.Quit End If Next On Error Resume Next Set fs=Wscript.CreateObject("Scripting.FileSystemObject") Set objFolder=fs.GetFolder(strRootPath) If err=76 Then MsgBox "路径" & strRootPath & "不存在!",vbcritical Wscript.Quit End If Set objFolder=nothing Set fs=nothing On Error GoTo 0 On Error Resume Next Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName) VirDir.AccessRead=true VirDir.Path=strRootPath VirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDoc VirDir.setInfo If err<>0 Then MsgBox "创建虚拟目录失败!",vbcritical Else MsgBox "虚拟目录" & strVRName & "成功创建在服务器" & strServerName & "上!",vbinformation End If 代码的关键在于创建虚拟目录，及其中的配置： Set VirDir=objVirtualDir.Create("IISWebVirtualDir",strVRName) VirDir.AccessRead=true VirDir.Path=strRootPath VirDir.DefaultDoc=VirDir.DefaultDoc & "," & strDefaultDoc VirDir.setInfo