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

See more Cert Store Examples

Note: Requires Chilkat v10.1.2 or later.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set certStore [new_CkCertStore]

# 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.
set argNotUsed ""
set success [CkCertStore_OpenSmartcard $certStore $argNotUsed]
if {$success == 0} then {
    puts [CkCertStore_lastErrorText $certStore]
    delete_CkCertStore $certStore
    exit
}

set cert [new_CkCert]

set numCerts [CkCertStore_get_NumCertificates $certStore]
set i 0

while {$i < $numCerts} {
    # Load the cert object with the Nth certificate found in the connected HSMs
    CkCertStore_GetCert $certStore $i $cert
    puts "$i: [CkCert_subjectCN $cert]"
    set i [expr $i + 1]
}

delete_CkCertStore $certStore
delete_CkCert $cert