TMG 2010 为HTTPS协议添加非标准端口（443）

1、添加加密端口时，编辑脚本addsslports.vbs 

addsslports.vbs 脚本内容如下：

Dim root
Dim tpRanges
Dim newRange
Set root = CreateObject("FPC.Root")
Set tpRanges = root.GetContainingArray.ArrayPolicy.WebProxy.TunnelPortRanges
set newRange = tpRanges.AddRange("SSL port name",first port number,last port number)
tpRanges.Save

port name --->自定义命名为相应的端口的名称

first port number--->起始端口号

last port number---->终止端口号

例：开放财务国税网站加密端口7001

port name = finace

first port number =7001

last port number=7001

2、查看TMG服务器添加的非标准的HTTPS协议端口

使用脚本：ListPorts.vbs ，脚本内容如下：

Dim root
Set root = CreateObject("FPC.Root")
Dim isaArray
Dim tpRanges
Dim tpRange 
Set isaArray = root.GetContainingArray()
Set tpRanges = isaArray.ArrayPolicy.WebProxy.TunnelPortRanges
For Each tpRange In tpRanges
WScript.Echo tpRange.Name & ": " & tpRange.TunnelLowPort & "-" & tpRange.TunnelHighPort
Next

3、删除加密端口时，编辑脚本deltprange.vbs

portname--->已存在的相应端口对应的名称

例：port name =finace

deltprange.vbs 脚本内容如下：

Dim root
Dim tpRanges

Set root = CreateObject("FPC.Root")
Set tpRanges = root.GetContainingArray.ArrayPolicy.WebProxy.TunnelPortRanges
tpRanges.Remove "SSL portname"
tpRanges.Save True