PowerBuilder

Iterate over Certificates in a Certificate Store

See more Cert Store Examples

Demonstrates how to iterate over the certificates in a certificate store.

Note: Requires Chilkat v10.1.2 or later.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_CertStore
integer li_ReadOnly
oleobject loo_Cert
integer li_NumCerts
integer i

li_Success = 0

loo_CertStore = create oleobject
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

// This opens the Current User certificate store on Windows,
// On MacOS and iOS it opens the default Keychain.
li_ReadOnly = 0
li_Success = loo_CertStore.OpenCurrentUserStore(li_ReadOnly)
if li_Success = 0 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_CertStore
    return
end if

loo_Cert = create oleobject
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.
    loo_CertStore.GetCert(i,loo_Cert)
    Write-Debug string(i) + ": " + loo_Cert.SubjectCN
    i = i + 1
loop


destroy loo_CertStore
destroy loo_Cert