Microsoft Internet Security and Acceleration Server 2000 |
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