Как программно (в vbscript) изменить / установить порт tcp для сайта под IIS?

Question

Моя среда программирования включает в себя сценарии для настройки моей автоматической сборки на чистой машине.

Один шаг использует vbscript для настройки веб-сайта на IIS, который используется для мониторинга сборки.

На конкретной машине я буду запускать apache на порту 80 для отдельной задачи.

Я бы хотел, чтобы мой vbscript установил порт 8080 для нового сайта, который он добавляет.

Как я могу это сделать?

Answer 1

Вы можете использовать adsutil.vbs, часть сценариев администрирования IIS, чтобы изменить это:

cscript adsutil.vbs set W3SVC/1/ServerBindings “:8080:”

В макете по умолчанию сценарий находится в C:\Inetpub\AdminScripts\.

Answer 2

вам нужно будет добавить заголовок узла, используя WMI или ADSI

http://www.adopenstatic.com/cs/blogs/ken/archive/2006/07/28/188.aspx

Выдержка из кода (там с небольшим редактированием)

    Dim objWebApp
    Dim intArraySize
    Dim arrOldBindings
    Dim arrNewBindings</p>

<pre><code>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