Microsoft Internet Security and Acceleration Server 2000

Add a New ISA Enterprise Policy

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