(VBScript) 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.

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

' 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
    outFile.WriteLine(cert.LastErrorText)
    outFile.WriteLine("Certificate not loaded.")
    WScript.Quit
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.
outFile.WriteLine(cert.LastErrorText)

outFile.WriteLine("Found: " & cert.SubjectDN & " serial=" & cert.SerialNumber)

outFile.Close