VendorParametersSets Property of IFPCPersist[C++] | FPCPersist.VendorParametersSets [Visual Basic]

Internet Security and Acceleration Server 2004/2006 SDK

The VendorParametersSets property gets an FPCVendorParametersSets collection that can hold custom data for extending the object.


HRESULT get_VendorParametersSets(
  IFPCVendorParametersSets** ppVendorParametersSets );

Parameters

ppVendorParametersSets
Address of an interface pointer that on return points to an IFPCVendorParametersSets interface that represents the collection of custom data.

Return Values

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

Remarks

This property is read-only. It can be modified by modifying the IFPCVendorParametersSets interface retrieved.

The VendorParametersSets property gets an FPCVendorParametersSets collection that can hold custom data for extending the object.


Property VendorParametersSets As FPCVendorParametersSets

Property Value

Reference to an FPCVendorParametersSets collection that can hold custom data for extending the object.

Remarks

This property is read-only. It can be modified by modifying the FPCVendorParametersSets collection retrieved.

Example Code

This VBScript script retrieves or adds the vendor parameters set for storing the parameter DontMarkSessionAsPrivateIfProxyAuthSeen to the VendorParametersSets property of the FPCArray object representing the local array and sets the value of this parameter to 1.
 
'Define the constants needed.
Const VpsGUID = "{143F5698-103B-12D4-FF34-1F34767DEABC}"
Const Error_FileNotFound = &H80070002

' Create the root object.
Dim root ' The FPCLib.FPC root object
Set root = CreateObject("FPC.Root")

' Declare the other objects that are required.
Dim isaArray  ' An FPCArray object
Dim vpSets    ' An FPCVendorParametersSets collection
Dim vpSet     ' An FPCVendorParametersSet object

' Obtain references to the array object
' and to the vendor parameters sets collection.
Set isaArray = root.GetContainingArray()
Set vpSets = isaArray.VendorParametersSets

' Try to retrieve the required vendor parameters set.
' If it does not exist, create it.
On Error Resume Next
Set vpSet = vpSets.Item(VpsGUID)
If Err.Number = Error_FileNotFound Then
    Err.Clear
    WScript.Echo "Creating the required vendor parameters set..."
    Set vpSet = vpSets.Add(VpsGUID)
    If Err.Number <> 0 Then
        WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description
        WScript.Quit
    End If
Else
    WScript.Echo "The vendor required parameters set already exists."
End If
Err.Clear
On Error GoTo 0

' Set the value of the parameter.
vpSet.Value("DontMarkSessionAsPrivateIfProxyAuthSeen") = 1

isaArray.Save
WScript.Echo "Done!"

Requirements

Client Requires Windows XP.
Server Requires Windows Server 2003. Requires Windows Server 2003 or Windows 2000 for ISA Server 2004 Standard Edition.
Version Requires Internet Security and Acceleration (ISA) Server 2006 or ISA Server 2004.
IDL

Declared in Msfpccom.idl.

DLL Requires Msfpccom.dll.

See Also

FPCPersist

Show: