TMG 添加非标准ssl端口模板

标签：ar   on   ad   new   web   oo   port   create   object   

Dim root
Dim tpRanges
Dim newRange8443
Set root = CreateObject("FPC.Root")
Set tpRanges = root.GetContainingArray.ArrayPolicy.WebProxy.TunnelPortRanges
set newRange8443a = tpRanges.AddRange("SSL 8443", 8443, 8443)
tpRanges.Save

TMG 添加非标准ssl端口模板

标签：ar   on   ad   new   web   oo   port   create   object   

原文地址：http://huzhongliang.blog.51cto.com/1817180/1562275