(VBScript) Iterate over Certificates on Connected Smart Cards and USB Tokens

See more Cert Store Examples

Demonstrates how to iterate over the certificates on connected smart cards and USB tokens.

Note: Requires Chilkat v10.1.2 or later.

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

' Detects connected smart cards and USB tokens
' and loads the certificate store object with the certificates found.
' Works on Windows, MacOS, iOS, and Linux.
' Note: If something is not detected, contact info@chilkatsoft.com
' for help or for workarounds.
argNotUsed = ""
success = certStore.OpenSmartcard(argNotUsed)
If (success = 0) Then
    outFile.WriteLine(certStore.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")

numCerts = certStore.NumCertificates
i = 0

Do While i < numCerts
    ' Load the cert object with the Nth certificate found in the connected HSMs
    success = certStore.GetCert(i,cert)
    outFile.WriteLine(i & ": " & cert.SubjectCN)
    i = i + 1
Loop

outFile.Close