Visual Basic 6.0

Load Default Certificate from Smart Card or Token

See more Certificates Examples

Chilkat contains internal logic to examine a connected smart card or USB token, and will make decisions based on make/model to successfully interact with the hardware. When faced with a new smartcard or token, the best starting point is to call LoadFromSmartcard with an empty string argument to see what Chilkat discovers. Visual Basic 6.0

Dim success As Long
success = 0

Dim cert As New ChilkatCert

' If you know the smart card PIN, it's good to set it prior to loading from the smartcard/USB token.
cert.SmartCardPin = "12345678"

' To let Chilkat discover what smartcard or token is connected, pass an empty string to LoadFromSmartcard.
' When testing in this way, it's best to have only a single smartcard or token connected to the system.
success = cert.LoadFromSmartcard("")
If (success = 0) Then
    Debug.Print cert.LastErrorText
    Debug.Print "Certificate not loaded."
    Exit Sub
End If

' The LastErrorText property on all Chilkat objects will contain 
' information even when the method call is successful.
' You can examine the LastErrorText to see what Chilkat found and
' what decisions were made.
' 
' For example, if a certificate was successfully loaded via LoadFromSmartcard,
' but then signing failed, such as w/ Pdf, XmlDSig, CAdES, etc.,
' then we would want to examine the LastErrorText from the call to
' LoadFromSmartcard to get detailed information about the card.
Debug.Print cert.LastErrorText

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