(VBScript) List CSP's (Cryptographic Service Providers) on a Windows System

List the CSP's registered on a Windows system.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Csp")
set csp = CreateObject("Chilkat.Csp")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringTable")
set st = CreateObject("Chilkat.StringTable")

success = csp.GetProviders(st)
If (success = 0) Then
    outFile.WriteLine(csp.LastErrorText)
    WScript.Quit
End If

' Iterate over the CSP names..
i = 0
numProviders = st.Count
Do While i < numProviders
    outFile.WriteLine(i & ": " & st.StringAt(i))
    i = i + 1
Loop

' Sample output:
' 
' 0: Microsoft Base Cryptographic Provider v1.0
' 1: Microsoft Base DSS and Diffie-Hellman Cryptographic Provider
' 2: Microsoft Base DSS Cryptographic Provider
' 3: Microsoft Base Smart Card Crypto Provider
' 4: Microsoft DH SChannel Cryptographic Provider
' 5: Microsoft Enhanced Cryptographic Provider v1.0
' 6: Microsoft Enhanced DSS and Diffie-Hellman Cryptographic Provider
' 7: Microsoft Enhanced RSA and AES Cryptographic Provider
' 8: Microsoft RSA SChannel Cryptographic Provider
' 9: Microsoft Strong Cryptographic Provider
' 

outFile.Close