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