AutoIt

Get Certificate Policy

See more Certificates Examples

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

Local $bSuccess = False

$oCert = ObjCreate("Chilkat.Cert")

$bSuccess = $oCert.LoadFromFile("qa_data/certs/sample.cer")
If ($bSuccess = False) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

; The certificatePolicies OID is 2.5.29.32
Local $sOid = "2.5.29.32"
Local $strXml = $oCert.GetExtensionAsXml($sOid)
If ($oCert.LastMethodSuccess = True) Then
    ConsoleWrite($strXml & @CRLF)

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

    $oXml = ObjCreate("Chilkat.Xml")
    $oXml.LoadXml($strXml)
    ConsoleWrite("Policy OID = " & $oXml.GetChildContent("sequence|oid") & @CRLF)
EndIf