Microsoft Internet Security and Acceleration Server 2000

ISA Array Examples

The following code uses the FPCArray.Servers property to return the name of an individual server.

Dim objFPC As New FPCLib.FPC
Dim serverName As String
Dim objFPCArray As FPCArray
Set objFPCArray = objFPC.Arrays(1)
serverName = objFPCArray.Servers(1).Name
MsgBox serverName

The following code retrieves the name of the containing array by using the GetContainingArray method.

Dim objFPC As New FPCLib.FPC
Dim CurrentArray As String
Dim objFPCArrays As FPCArrays
Set objFPCArrays = objFPC.Arrays
CurrentArray = objFPCArrays.GetContainingArray.Name
MsgBox CurrentArray