Function GetCSPList()
On Error Resume Next
Dim nProvType, nOrigProvType, nTotCSPs, nDefaultCSP, oElement, oOption
Const nMaxProvType=99 ' should be >= the number of providers defined in wincrypt.h (~line 431)
nTotCSPs=0
nDefaultCSP=-1

' save the original provider type
nOrigProvType=IControl.ProviderType
If 0<>Err.number Then
' something wrong with IControl
GetCSPList=Err.Number
Exit Function
End If

' enumerate through each of the provider types
For nProvType=0 To nMaxProvType
Dim nCSPIndex
nCSPIndex=0
IControl.ProviderType=nProvType

' enumerate through each of the providers for this type
Do
Dim sProviderName

'get the name
sProviderName=IControl.enumProviders(nCSPIndex, 0)

If &H80070103=Err.number Then
' no more providers
Err.Clear
Exit Do
End If
' For each provider, add an element to the list box.
Set oOption=document.createElement("OPTION")
oOption.text=sProviderName
oOption.Value=nProvType
document.UIForm.lbCSP.add(oOption)
If 0<>InStr(sProviderName, "2001 Cryptographic Service Provider") Then
oOption.selected=True
nDefaultCSP=nTotCSPs
Else
If sProviderName = "Crypto-Pro Cryptographic Service Provider" Then
oOption.selected=True
nDefaultCSP=nTotCSPs
End If
End If
nTotCSPs=nTotCSPs+1

' get the next provider
nCSPIndex=nCSPIndex+1
Loop
Next
' if there are no CSPs, we're kinda stuck
If 0=nTotCSPs Then
Set oElement=document.createElement("OPTION")
oElement.text="(no CSPs found)"
document.UIForm.lbCSP.Options.Add oElement
End If

' remove the 'loading' text
document.UIForm.lbCSP.remove(0)

' select the default provider
If -1<>nDefaultCSP Then
document.UIForm.lbCSP.selectedIndex=nDefaultCSP
End If
' restore the original provider type
IControl.ProviderType=nOrigProvType

' set the return value and exit
If 0<>Err.Number Then
GetCSPList=Err.Number
ElseIf 0=nTotCSPs Then
' signal no elements with -1
GetCSPList=-1
Else
GetCSPList=0
End If

' Open User Store
IStore.Open 'CURRENT_USER_STORE, CAPICOM_MY_STORE, CAPICOM_STORE_OPEN_READ_ONLY
If 0<>Err.Number Then
GetCSPList=Err.Number
End If
End Function