Microsoft Internet Security and Acceleration Server 2000 |
An ISA enterprise policy is represented by the FPCEnterprisePolicy object and the enterprise policy interfaces are accessed through the FPCEnterprise object. The FPCEnterprisePolicies.Add method adds a new ISA policy:
Dim objFPC As New FPCLib.FPC Dim MyPolicies As FPCEnterprisePolicies Dim MyPolicy As FPCEnterprisePolicy Set MyPolicy = objFPC.Enterprise.EnterprisePolicies.Add("Standard Company Policy") MyPolicy.Description = "Standard policy for all users" 'save your changes MyPolicy.Save