IFPCAppliedSSLCertificates::_NewEnum property

Article
08/27/2012

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 the names of all the SSL server certificates that are available for a specific Web listener. It does not include error handling.

' Create the root object.
Dim root  ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")
' Declare the other objects needed.
Dim isaArray                ' An FPCArray object
Dim appliedSslCertificates  ' An FPCAppliedSSLCertificates collection
Dim appliedSslCertificate   ' An FPCAppliedSSLCertificate object
Dim webListeners            ' An FPCWebListeners collection
Dim webListener             ' An FPCWebListener object
' Get references to the array object 
' and the Web listeners collection.
Set isaArray = root.GetContainingArray()
Set webListeners = isaArray.RuleElements.WebListeners
' If at least one Web listener is defined in the Web listeners 
' collection, display the names of the SSL server certificates
' that are available for the first Web listener found.
On Error Resume Next
Set webListener = webListeners.Item(1)
Set appliedSslCertificates = webListener.Properties.AppliedSSLCertificates
If Err.Number = 0 Then
    For Each appliedSslCertificate In appliedSslCertificates
        WScript.Echo "Applied SSL certificate name: " & appliedSslCertificate.SSLCertificate.FriendlyName 
    Next
End If

Requirements

Minimum supported client	Windows Vista
Minimum supported server	Windows Server 2008 R2, Windows Server 2008 with SP2 (64-bit only)
Version	Forefront Threat Management Gateway (TMG) 2010
IDL	Msfpccom.idl
DLL	Msfpccom.dll