Tcl

Get Certificate Policy

See more Certificates Examples

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

load ./chilkat.dll

set success 0

set cert [new_CkCert]

set success [CkCert_LoadFromFile $cert "qa_data/certs/sample.cer"]
if {$success == 0} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

# The certificatePolicies OID is 2.5.29.32
set oid "2.5.29.32"
set strXml [CkCert_getExtensionAsXml $cert $oid]
if {[CkCert_get_LastMethodSuccess $cert] == 1} then {
    puts "$strXml"

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

    set xml [new_CkXml]

    CkXml_LoadXml $xml $strXml
    puts "Policy OID = [CkXml_getChildContent $xml sequence|oid]"
}


delete_CkCert $cert
delete_CkXml $xml