(PowerBuilder) Load PFX/P12 File into Certificate Store Object

Demonstrates how to load a .pfx/.p12 into a certificate store object.

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

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

// This only loads the contents of the PFX file into the certStore object.
// It is not importing the PFX into the Windows certificate stores.
ls_PfxPassword = "badssl.com"
li_Success = loo_CertStore.LoadPfxFile("qa_data/pfx/badssl.com-client.p12",ls_PfxPassword)
if li_Success = 0 then
    Write-Debug loo_CertStore.LastErrorText
    destroy loo_CertStore
    return
end if

// Examine each certificate (loaded from the PFX) in this certStore object
li_NumCerts = loo_CertStore.NumCertificates
i = 0
do while i < li_NumCerts
    loo_Cert = loo_CertStore.GetCertificate(i)
    Write-Debug "hasPrivateKey=" + string(loo_Cert.HasPrivateKey()) + ", " + loo_Cert.SubjectCN
    destroy loo_Cert
    i = i + 1
loop


destroy loo_CertStore