PowerBuilder

Load PFX (PKCS#12) and List Certificates

See more Certificates Examples

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

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

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"

loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")

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

    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

    i = i + 1
loop


destroy loo_CertStore
destroy loo_Cert