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

See more Cert Store Examples

Note: Requires Chilkat v10.1.2 or later.

Chilkat Lianja Extension Download Chilkat Lianja Extension

loCertStore = createobject("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.
lcArgNotUsed = ""
llSuccess = loCertStore.OpenSmartcard(lcArgNotUsed)
if (llSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

loCert = createobject("CkCert")

lnNumCerts = loCertStore.NumCertificates
i = 0

do while i < lnNumCerts
    // Load the cert object with the Nth certificate found in the connected HSMs
    loCertStore.GetCert(i,loCert)
    ? str(i) + ": " + loCert.SubjectCN
    i = i + 1
enddo


release loCertStore
release loCert