Как программно (в 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
 

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