(AutoIt) Get the Server Certificate, Certificate Chain, and Root CA Certificate

Demonstrates how to get the HTTP server certificate, its certificate chain, and the root CA certificate.

Note: This example requires Chilkat v11.0.0 or greater.

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

Local $bSuccess = False

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oHttp = ObjCreate("Chilkat.Http")

; We're getting the SSL/TLS certificate, so make sure to connect to the SSL/TLS port (443).
$oSslCert = ObjCreate("Chilkat.Cert")
$bSuccess = $oHttp.GetServerCert("apple.com",443,$oSslCert)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oCertChain = ObjCreate("Chilkat.CertChain")
$bSuccess = $oSslCert.BuildCertChain($oCertChain)
If ($bSuccess = False) Then
    ConsoleWrite($oSslCert.LastErrorText & @CRLF)
    Exit
EndIf

$oCert = ObjCreate("Chilkat.Cert")
Local $i = 0
Local $iNumCerts = $oCertChain.NumCerts
While $i < $iNumCerts
    $oCertChain.CertAt($i,$oCert)
    ConsoleWrite("SubjectDN " & $i & ": " & $oCert.SubjectDN & @CRLF)
    ConsoleWrite("IssuerDN " & $i & ": " & $oCert.IssuerDN & @CRLF)
    $i = $i + 1
Wend

; If the certificate chain reaches the root CA cert, then the last cert in the chain
; is the root CA cert.
If ($oCertChain.ReachesRoot = True) Then
    $oCaCert = ObjCreate("Chilkat.Cert")
    $oCertChain.CertAt($iNumCerts - 1,$oCaCert)
    ConsoleWrite("CA Root Cert: " & $oCaCert.SubjectDN & @CRLF)
EndIf