个人电脑安全的十六个误区
2011-01-17 10:44
204 查看
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
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