' Create the root object.
Dim root ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")
' Declare the other objects needed.
Dim isaArray ' An FPCArray object
Dim webProxy ' An FPCWebProxy object
Dim restartMask ' A 32-bit bitmask of type FpcServices
' Get references to the array object
' and the Web proxy object.
Set isaArray = root.GetContainingArray()
Set webProxy = isaArray.ArrayPolicy.WebProxy
' Configure the Web proxy to skip name resolution
' while checking access and routing rules and save
' the new configuration.
webProxy.SkipNameResolutionForAccessAndRoutingRules = True
restartMask = webProxy.GetServiceRestartMask
webProxy.Save
' Restart the Firewall service so that
' the change will take effect.
isaArray.RestartServices restartMask