IISでサイトのtcpポートを（vbscriptで）プログラムで変更/設定するにはどうすればよいですか？

Question

プログラミング環境には、クリーンマシンで自動ビルドをセットアップするためのスクリプトが含まれています。

1つのステップでは、vbscriptを使用して、ビルドの監視に使用されるIIS上のWebサイトを構成します。

特定のマシンでは、別のタスクのためにポート80でApacheを実行します。

vbscriptで、追加する新しいサイトのポートを8080に設定してください。

これを行うにはどうすればよいですか

Answer 1

IIS管理スクリプトの一部である adsutil.vbs を使用して、それを変更できます。

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