您要打印的文件是：vbscript自动配置IIS

vbscript自动配置IIS

作者：    转贴自：    点击数：4457


　　最近因为参与一项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