IFPCIPsOnNetworks::_NewEnum property

Applies to: desktop apps only

The _NewEnum property gets an enumerator object for the collection. An enumerator object provides serial access to the elements of the collection.

This property is read-only.

Syntax

HRESULT get__NewEnum(
  IUnknown *ppEnum
);

' Data type: IUnknown

Property _NewEnum( _
  ByVal ppEnum As IUnknown _
) As IUnknown

Property value

Reference to an enumerator object that provides serial access to the elements of the collection.

Error codes

This property method returns S_OK if the call is successful; otherwise, it returns an error code.

Remarks

This property is read-only.

In Visual Basic and VBScript, this property is used implicitly in For Each...In...Next constructs.

Examples

This VBScript script displays all of the IP addresses on which a specific Web listener listens. This example does not include complete error handling.

' Create the root object.
Dim root  ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")
' Declare the other objects needed and a string.
Dim isaArray      ' An FPCArray object
Dim webListeners  ' An FPCWebListeners collection
Dim webListener   ' An FPCWebListener object
Dim iponNetwork   ' An FPCIPOnNetwork object
Dim ipAddresses   ' An FPCIPAddresses collection
Dim ipAddress     ' A string
' Get references to the array object 
' and the IP addresses collection.
Set isaArray = root.GetContainingArray()
Set webListeners = isaArray.RuleElements.WebListeners
' If at least one Web listener is defined in the Web 
' listeners collection, display all the IP addresses on
' which the first Web listener found listens.
On Error Resume Next
Set webListener = webListeners.Item(1)
If Err.Number = 0 Then
    For Each iponNetwork In webListener.IPsOnNetworks
        Set ipAddresses = iponNetwork.IPAddresses
        For Each ipAddress In ipAddresses
            WScript.Echo "IP Address: " & ipAddress 
        Next
    Next
End If

Requirements

See also

FPCIPsOnNetworks

Build date: 7/12/2010