(Visual Basic 6.0) Load Certificate from Smart Card by Serial Number

See more Certificates Examples

This example requires Chilkat v9.5.0.87 or greater. It uses a Windows-only function named LoadFromSmartcard.

This example loads a certificate specified by its hexidecimal serial number. The LoadFromSmartcard method will examine the connected smart cards and USB tokens and will find and load the certificate having the specified serial number.

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

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim cert As New ChilkatCert

' To load the certificate specified by its hexidecimal serial number, pass the string "serial=<hexSerialNumber>".  For example:
Dim success As Long
success = cert.LoadFromSmartcard("serial=4A1E6ADCF59DB1EFBAAE438D2C52664E40D16A87")
If (success = 0) Then
    Debug.Print cert.LastErrorText
    Debug.Print "Certificate not loaded."
    Exit Sub
End If

Debug.Print "Found: " & cert.SubjectDN & " serial=" & cert.SerialNumber

' Here's another example.
' Note: serial numbers can be of different lengths.  The length of the serial number depends on the certificate.
Dim cert2 As New ChilkatCert
success = cert2.LoadFromSmartcard("serial=66BE58138D761E92BC594A722932657BE26D421F")
If (success = 0) Then
    Debug.Print cert2.LastErrorText
    Debug.Print "Certificate not loaded."
    Exit Sub
End If

Debug.Print "Found: " & cert2.SubjectDN & " serial=" & cert2.SerialNumber