(Visual Basic 6.0) 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 certStore As New ChilkatCertStore

' To allow Chilkat to automatically choose a CSP,
' set the CSP name to the empty string.
Dim cspName As 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.
Dim success As Long
success = certStore.OpenSmartcard(cspName)
If (success = 0) Then
    Debug.Print certStore.LastErrorText
    Exit Sub
End If

' Iterate over certificates on the smartcard.
Dim i As Long
i = 0
Dim numCerts As Long
numCerts = certStore.NumCertificates
Debug.Print "numCerts = " & numCerts

Do While (i < numCerts)
    Dim cert As ChilkatCert
    Set cert = certStore.GetCertificate(i)
    Debug.Print cert.SubjectCN

    i = i + 1
Loop