(VBScript) Open Smartcard Certificate Store (or from USB Token)

Demonstrates how to open the certificate store of the smart card currently in the reader (or the USB token). Iterates over the certs found on the smartcard.

Note: This example requires Chilkat v9.5.0.80 or later.

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.CertStore")
set certStore = CreateObject("Chilkat.CertStore")

' To allow Chilkat to automatically choose a CSP,
' set the CSP name to the empty string.
cspName = ""

' Chilkat will choose the 1st 3rd party CSP in the following list
' that it finds on the system.  If no 3rd party CSP is found, then
' the "Microsoft Base Smart Card Crypto Provider" is automatically chosen
' 
' Bit4id Universal Middleware Provider
' eToken Base Cryptographic Provider
' FTSafe ePass1000 RSA Cryptographic Service Provider
' EnterSafe ePass2003 CSP v2.0
' Gemalto Classic Card CSP
' PROXKey CSP India V1.0
' PROXKey CSP India V2.0
' TRUST KEY CSP V1.0
' Watchdata Brazil CSP V1.0
' Luna Cryptographic Services for Microsoft Windows
' Luna SChannel Cryptographic Services for Microsoft Windows
' Safenet RSA Full Cryptographic Provider
' nCipher Enhanced Cryptographic Provider
' SafeSign Standard Cryptographic Service Provider
' SafeSign Standard RSA and AES Cryptographic Service Provider
' MySmartLogon NFC CSP
' NFC Connector Enterprise
' ActivClient Cryptographic Service Provider
' EnterSafe ePass2003 CSP v1.0
' Athena ASECard Crypto CSP"

' To get the list of CSP's on your system, see this example:
' List Cryptographic Service Providers (CSP's) on a Windows System

' Access the certificates on the smart card via the Chilkat certificate store class.
success = certStore.OpenSmartcard(cspName)
If (success = 0) Then
    outFile.WriteLine(certStore.LastErrorText)
    WScript.Quit
End If

' Iterate over certificates on the smartcard.
i = 0
numCerts = certStore.NumCertificates
outFile.WriteLine("numCerts = " & numCerts)

Do While (i < numCerts)
    ' cert is a Chilkat.Cert
    Set cert = certStore.GetCertificate(i)
    outFile.WriteLine(cert.SubjectCN)

    i = i + 1
Loop

outFile.Close