(PowerBuilder) Load PFX (PKCS#12) and List Certificates

Loads a PFX file (.pfx, .p12) and iterates over the certificates found within.

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

integer li_rc
oleobject loo_CertStore
integer li_Success
string ls_PfxPath
string ls_PfxPassword
integer li_NumCerts
integer i
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

ls_PfxPath = "/Users/chilkat/testData/pfx/chilkat_ssl.pfx"
ls_PfxPassword = "test"
li_Success = loo_CertStore.LoadPfxFile(ls_PfxPath,ls_PfxPassword)
if li_Success <> 1 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_CertStore
    return
end if

li_NumCerts = loo_CertStore.NumCertificates

Write-Debug "PFX contains " + string(li_NumCerts) + " certificates"

i = 0
do while i < li_NumCerts
    loo_Cert = loo_CertStore.GetCertificate(i)

    Write-Debug string(i) + ": (Common Name) " + loo_Cert.SubjectCN
    Write-Debug string(i) + ": (Serial Number) " + loo_Cert.SerialNumber
    Write-Debug string(i) + ": (Distinguished Name) " + loo_Cert.SubjectDN
    destroy loo_Cert

    i = i + 1
loop


destroy loo_CertStore