VBS有没有办法给IIS添加站点？解决办法

' 其中全部大写的变量可自定义为常数Function createSite()    'On Error Resume Next    Dim iNo    Dim oW3SVC, oNewServer, oRoot    createSite = False    iNo = 1    showMsg "获取站点标识..."    Do While True        Set oW3SVC = GetObject("IIS://LocalHost/W3SVC/" & iNo)        If Err.Number = 0 Then            iNo = iNo + 1        Else            Err.Clear            Exit Do        End If    Loop    Set oW3SVC = GetObject("IIS://LocalHost/W3SVC")    If Err.Number<>0 Then        MsgBox "Error: " & Err.Description        Exit Function    End If    showMsg "创建站点" & SITE_NAME & "..."    Set oNewServer = oW3SVC.Create("IIsWebServer", iNo)    If Err.Number<>0 Then        MsgBox "Error: " & Err.Description        Exit Function    End If    showMsg "设置站点描述..."    oNewServer.ServerComment = SITE_NAME    showMsg "绑定站点IP,端口，主机头..."    oNewServer.ServerBindings = Array(SITE_IP & ":" & SITE_PORT & ":" & SITE_HOST)    Set oRoot = oNewServer.Create("IIsWebVirtualDir","Root")    With oRoot    showMsg "设置物理路径..."        .Path = PRJ_PATH & "web\"    showMsg "设置允许读取..."        .AccessRead = True    showMsg "设置不允许写入..."        .AccessWrite = False    showMsg "设置允许脚本访问资源..."        .AccessSource = True    showMsg "设置不允许浏览目录..."        .EnableDirBrowsing = False    showMsg "设置允许默认文档..."        .EnableDefaultDoc = True    showMsg "设置允许脚本访问..."        .AccessScript = True    showMsg "设置不记录日志..."        .DontLog = True    showMsg "设置不索引内容..."        .ContentIndexed = False    showMsg "设置允许Session..."        .AspAllowSessionState = True    showMsg "设置允许缓存..."        .AspBufferingOn = True    showMsg "创建应用程序..."        .AppCreate2 2    showMsg "设置应用程序名称..."        .AppFriendlyName = "默认应用程序"    showMsg "设置session超时时间..."        .AspSessionTimeout = 10    showMsg "设置不允许父路径..."        .AspEnableParentPaths = False        .SetInfo    End With    showMsg "保存设置项数据..."    oNewServer.SetInfo    oW3SVC.SetInfo    If Err.Number<>0 Then        MsgBox "Error: " & Err.Description        Exit Function    End If    Set oW3SVC = Nothing    Set oNewServer = Nothing    Set oRoot = Nothing    showMsg "创建站点完毕。"    createSite = TrueEnd Function