Framework EDI Reference. Methods and Properties
ediSecurities. GetServiceProviders

Returns an object containing the collection of Cryptographic Service Providers (CSP) available in the system.

Syntax:

Set <oServiceProviders> = object.GetServiceProviders

Returns an object of type FREDI.ediSecurityServiceProviders.

Example:

Dim oEdiDoc As Fredi.ediDocument
Dim oSecurities As Fredi.ediSecurities
Dim oServiceProviders As Fredi.ediSecurityServiceProviders
Dim oServiceProvider As Fredi.ediSecurityServiceProvider
Dim lCspCount As Long
Dim sServiceProvidersList As String
Dim i As Integer

' Create instance of Framework EDI.
Set oEdiDoc = New Fredi.ediDocument

' Get the securities object
Set oSecurities = oEdiDoc.GetSecurities

' Get the service providers object.
Set oServiceProviders = oSecurities.GetServiceProviders

' Get the number of service providers available and enumerate
' the list of service providers.

lCspCount = oServiceProviders.Count

For i = 1 To lCspCount

Set oServiceProvider = oServiceProviders.GetServiceProvider(i)

sServiceProvidersList = sServiceProvidersList & oServiceProvider.Name
sServiceProvidersList = sServiceProvidersList & vbCrLf

Next

sServiceProvidersList = sServiceProvidersList & vbCrLf

MsgBox sServiceProvidersList

Sample

M_GetServiceProviders.zip