Microsoft Internet Security and Acceleration Server 2004 SDK

ISA Server Array Examples

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

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

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

Dim root As New FPCLib.FPC
Dim currentArray As String
currentArray = root.GetContainingArray.Name
MsgBox currentArray