(PowerBuilder) Open Smartcard Certificate Store (or from USB Token)

Demonstrates how to open the certificate store of the smart card currently in the reader (or the USB token). Iterates over the certs found on the smartcard.

Note: This example requires Chilkat v9.5.0.80 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

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

// To allow Chilkat to automatically choose a CSP,
// set the CSP name to the empty string.
ls_CspName = ""

// Chilkat will choose the 1st 3rd party CSP in the following list
// that it finds on the system.  If no 3rd party CSP is found, then
// the "Microsoft Base Smart Card Crypto Provider" is automatically chosen
// 
// Bit4id Universal Middleware Provider
// eToken Base Cryptographic Provider
// FTSafe ePass1000 RSA Cryptographic Service Provider
// EnterSafe ePass2003 CSP v2.0
// Gemalto Classic Card CSP
// PROXKey CSP India V1.0
// PROXKey CSP India V2.0
// TRUST KEY CSP V1.0
// Watchdata Brazil CSP V1.0
// Luna Cryptographic Services for Microsoft Windows
// Luna SChannel Cryptographic Services for Microsoft Windows
// Safenet RSA Full Cryptographic Provider
// nCipher Enhanced Cryptographic Provider
// SafeSign Standard Cryptographic Service Provider
// SafeSign Standard RSA and AES Cryptographic Service Provider
// MySmartLogon NFC CSP
// NFC Connector Enterprise
// ActivClient Cryptographic Service Provider
// EnterSafe ePass2003 CSP v1.0
// Athena ASECard Crypto CSP"

// To get the list of CSP's on your system, see this example:
// List Cryptographic Service Providers (CSP's) on a Windows System

// Access the certificates on the smart card via the Chilkat certificate store class.
li_Success = loo_CertStore.OpenSmartcard(ls_CspName)
if li_Success = 0 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_CertStore
    return
end if

// Iterate over certificates on the smartcard.
i = 0
li_NumCerts = loo_CertStore.NumCertificates
Write-Debug "numCerts = " + string(li_NumCerts)

do while (i < li_NumCerts)
    loo_Cert = loo_CertStore.GetCertificate(i)
    Write-Debug loo_Cert.SubjectCN
    destroy loo_Cert
    i = i + 1
loop


destroy loo_CertStore