代码之家 › 专栏 › 技术社区 › morechilli

如何(在vbscript中)以编程方式更改/设置IIS下站点的TCP端口?

vbscript iis

morechilli · 技术社区 · 16 年前

我的编程环境包括在干净的机器上设置自动生成的脚本。

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

在一台特定的机器上,我将在端口80上运行Apache来执行一个单独的任务。

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

我该怎么做?

2 回复 | 直到 16 年前

Tomalak 16 年前

你可以使用 adsutil.vbs ,是IIS管理脚本的一部分,若要更改:

cscript adsutil.vbs set W3SVC/1/ServerBindings â:8080:â

在默认布局中,脚本驻留在 C:\Inetpub\AdminScripts\ .

Ady 16 年前

您需要使用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

推荐文章

kwirky_penguin · VBScript远程WMI调用“错误:0”权限被拒绝:“GetObject”

2 年前

michael_wycklendt · 拆分字符串上的类型不匹配

2 年前

RuffMingani · VBScript-WMI查询的语法无效

2 年前

Munaver Munu · 这段VB代码是如何自动添加到我的html文件中的?[重复]

2 年前

whoislouis · 是否使用vbscript/hta将文件夹中的所有文件加载到数组中?

6 年前

Er Reddy · VBS-查找计算机所在的SCCM集合Id、名称和包名称?

6 年前

Nick Cage Wellfair · 编写Photoshop脚本时,打开扩展名为JPG的文件夹中的所有文件

6 年前

Ali Sheikhpour · 在VBScript中将字符串转换为变量名

6 年前

QHarr · 命令行执行VBScript文件以执行VBA宏无法生成msgbox

6 年前

arana · 生成3位字母数字日期索引

6 年前