PowerBuilder

Get Certificate Policy

See more Certificates Examples

Demonstrates how to get a certificate's policy OIDs (if any) PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Cert
string ls_Oid
string ls_StrXml
oleobject loo_Xml

li_Success = 0

loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat.Cert")
if li_rc < 0 then
    destroy loo_Cert
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Cert.LoadFromFile("qa_data/certs/sample.cer")
if li_Success = 0 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Cert
    return
end if

// The certificatePolicies OID is 2.5.29.32
ls_Oid = "2.5.29.32"
ls_StrXml = loo_Cert.GetExtensionAsXml(ls_Oid)
if loo_Cert.LastMethodSuccess = 1 then
    Write-Debug ls_StrXml

    // Sample result:
    // <sequence><sequence><oid>2.16.840.1.101.2.1.11.39</oid></sequence></sequence>

    loo_Xml = create oleobject
    li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

    loo_Xml.LoadXml(ls_StrXml)
    Write-Debug "Policy OID = " + loo_Xml.GetChildContent("sequence|oid")
end if



destroy loo_Cert
destroy loo_Xml