 |
vbscript自动配置IIS |
|
|
| vbscript自动配置IIS |
|
| 作者：佚名 文章来源：不详 点击数： 更新时间：2007-1-23 16:25:25 |
|
最近因为参与一项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【转自世纪安全网 http://www.21safe.com】
|
|
| 文章录入：admin 责任编辑：admin |
|
|
上一篇文章： 安全组织称javascript利用浏览器发动攻击
下一篇文章： 如何设置 Scriptomatic 以使其自动输出到文本文件中？ |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|
 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
|
|
|
|
|
