(VBScript) Load Certificate from Smartcard in Reader (or from USB Token)

Demonstrates how to load the certificate that is on the smartcard currently inserted into the smartcard reader. (Also can load the smartcard on a USB token.)

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, set it prior to loading from the smartcard/USB token.
cert.SmartCardPin = "12345678"

' Pass an empty string to allow Chilkat to discover the smart card or USB token automatically.
success = cert.LoadFromSmartcard("")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Cert loaded from smartcard: " & cert.SubjectCN)

outFile.Close