如何以编程方式（在vbscript中）更改/设置IIS下站点的tcp端口？

我的编程环境包括在干净的机器上设置autobuild的脚本

一个步骤使用vbscript在IIS上配置用于监视生成的网站

在一台特定的机器上，我将在端口80上运行apache来执行一项单独的任务

我希望我的vbscript将它正在添加的新站点的端口设置为8080

---

如何执行此操作？

您需要使用WMI或ADSI添加主机头

上面的代码摘录（稍加编辑）

    Dim objWebApp
    Dim intArraySize
    Dim arrOldBindings
    Dim arrNewBindings


Set objWebApp = GetObject("IIS://localhost/w3svc/" WebSiteID)

If isArray(objWebApp.ServerBindings) then

arrOldBindings = objWebApp.ServerBindings
    intArraySize = UBound(arrOldBindings)
    Redim arrNewBindings(intArraySize + 1)

    For i = 0 to intArraySize
    arrNewBindings(i) = arrOldBindings(i)
    Next

arrNewBindings(intArraySize + 1) = ":mydomain.com:8080:"

    objWebApp.Put "ServerBindings", (arrNewBindings)
    objWebApp.SetInfo

End If

您可以使用IIS管理脚本的一部分adsutil.vbs来更改：

cscript adsutil.vbs set W3SVC/1/ServerBindings:8080:
在默认布局中，脚本位于
C:\Inetpub\AdminScripts\
中。创建站点时，IIS将为站点分配一个ID（取决于随机版本或基于其名称）。这与日志文件目录中使用的数字相同。谢谢，这很有帮助-我认为该示例有一些+1错误，但给了我一般的想法。请指出它们，我将清理答案（如果其他人引用）。好的，我将其用于以下更改：[line6]设置objWebApp=GetObject（“IIS://localhost/w3svc/1”）[line12]Redim arrnubindings（intArraySize）[line18]arrnubindings（intArraySize）=“：mydomain.com:8080:”-我不知道vbscript，所以可能会有误解
cscript adsutil.vbs set W3SVC/1/ServerBindings “:8080:”