(PowerBuilder) 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

integer li_rc
oleobject loo_CertStore
string ls_ArgNotUsed
integer li_Success
oleobject loo_Cert
integer li_NumCerts
integer i

loo_CertStore = create oleobject
// Use "Chilkat_9_5_0.CertStore" for versions of Chilkat < 10.0.0
li_rc = loo_CertStore.ConnectToNewObject("Chilkat.CertStore")
if li_rc < 0 then
    destroy loo_CertStore
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// 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.
ls_ArgNotUsed = ""
li_Success = loo_CertStore.OpenSmartcard(ls_ArgNotUsed)
if li_Success = 0 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_CertStore
    return
end if

loo_Cert = create oleobject
// Use "Chilkat_9_5_0.Cert" for versions of Chilkat < 10.0.0
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

li_NumCerts = loo_CertStore.NumCertificates
i = 0

do while i < li_NumCerts
    // Load the cert object with the Nth certificate found in the connected HSMs
    loo_CertStore.GetCert(i,loo_Cert)
    Write-Debug string(i) + ": " + loo_Cert.SubjectCN
    i = i + 1
loop


destroy loo_CertStore
destroy loo_Cert