(AutoIt) Find a Certificate by it's SHA-1 Thumbprint

Finds a certificate by it's SHA-1 hex thumbprint. Parts of this example are specific to Windows because it searches the Windows Current User certificate store.

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

$oCertStore = ObjCreate("Chilkat.CertStore")

Local $sThumbprint = "12c1dd8015f3f03f7b1fa619dc24e2493ca8b4b2"

; This part of the example is specific to Windows because it is opening the Windows Current-User certificate store.
Local $bReadOnly = True
Local $bSuccess = $oCertStore.OpenCurrentUserStore($bReadOnly)
If ($bSuccess <> True) Then
    ConsoleWrite($oCertStore.LastErrorText & @CRLF)
    Exit
EndIf

; Find the certificate with the desired thumbprint
Local $oCert = $oCertStore.FindCertBySha1Thumbprint($sThumbprint)
If ($oCertStore.LastMethodSuccess <> True) Then
    ConsoleWrite("Failed to find the certificate." & @CRLF)
    Exit
EndIf

ConsoleWrite("Found: " & $oCert.SubjectCN & @CRLF)

; -------------------------------------------------------------------------------------
; Alternatively, one could load a certificate store object with certs from a PEM file,
; and do the same thing..
$oCertStorePem = ObjCreate("Chilkat.CertStore")

$bSuccess = $oCertStorePem.LoadPemFile("pemFiles/certificates.pem")
If ($bSuccess <> True) Then
    ConsoleWrite($oCertStorePem.LastErrorText & @CRLF)
    Exit
EndIf

$oCert = $oCertStorePem.FindCertBySha1Thumbprint($sThumbprint)
If ($oCertStorePem.LastMethodSuccess <> True) Then
    ConsoleWrite("Failed to find the certificate." & @CRLF)
    Exit
EndIf

ConsoleWrite("Found: " & $oCert.SubjectCN & @CRLF)