加入收藏
联系我们
关于我们
 您现在的位置: 亿聪 >> 网络学院 >> 网络编程 >> VBScript >> 正文  
  vbscript自动配置IIS       ★★★
vbscript自动配置IIS
[ 作者:    转贴自:    点击数:3268    更新时间:2003/8/20    文章录入:亿聪 ]
  最近因为参与一项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

  • 上一篇文章: 没有了

  • 下一篇文章: vbscript与javascript如何传递变量
  • 发表评论】【告诉好友】【打印此文】【关闭窗口
     最新5篇热点文章
  • Knoppix 4.0.2 免硬盘免安…[11663]

  • 通过ASP记录进行分页[8463]

  • ASP开发准则[8080]

  • ASP组件指南[7939]

  • ASP指南[8019]

  •  
     最新5篇推荐文章
  • Knoppix 4.0.2 免硬盘免安…[11663]

  • 如何让Win 2003系统更加安…[8985]

  • Nero超刻简明教程[32511]

  • PS商业实战-来杯茶,行吗?…[5712]

  • ASP深度揭密(下)[9122]

  •  
     相 关 文 章
  • IIS错误代码大汇总[7312]

  • IIS常见问题和错误及其解决…[3748]

  • IIS常见问题和错误及其解决…[3732]

  • IIS 5.1和IIS 6.0一些显著…[3488]


  •   网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
        没有任何评论
    设为首页 | 加入收藏 | 关于我们 | 联系我们 | 友情链接 | 版权声明 | 管理登录
    Copyright © 2000-2020 Yicong.com.All Rights Reserved.
    亿聪 版权所有 E-mail: