vbscript自动配置IIS

页面导航:首页 > 软件编程 > vb.net > vbscript自动配置IIS

vbscript自动配置IIS

来源: 作者: 时间:2016-02-05 12:32 【

来源:http://www.huam.net最近因为参与一项WEB工程的缘故,写了一个VBScript的程序,用于配置IIS的虚拟目录。特写出来大家一起分享。 源程序如下:(已在Win2000通过)strServerName ="localhost"st

来源:

最近因为参与一项WEB工程的缘故,写了一个VBScript的程序,用于配置IIS的虚拟目录。
特写出来大家一起分享。

源程序如下:(已在Win2000通过)

strServerName ="localhost"
strRootPath="g:documents" 虚拟目录路径
strVRName="Test" 虚拟目录名称
strDefaultDoc="index." 起始文档

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

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <