• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    vbscript自动配置IIS的代码
    复制代码 代码如下:

    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


    上一篇:用vbs控制iis创建虚拟目录的代码
    下一篇:使用ADSI、ASP和一对魔术戏法自动地创立一个虚拟目录的方法
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    vbscript自动配置IIS的代码 vbscript,自动,配置,IIS,的,