(AutoIt) Find Certificate for Email Address in Current-User Certificate Store (Windows-Only)

This is a Windows-only example to find a certificate for a given email address in the current-user certificate store (located in the Windows Registry).

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

; This is a Windows-only example because it lists the certificates
; stored in the Windows Current User Certificate Store located in the
; Windows Registry.

$oCertStore = ObjCreate("Chilkat.CertStore")

Local $bReadOnly = True
Local $bSuccess = $oCertStore.OpenCurrentUserStore($bReadOnly)
If ($bSuccess = False) Then
    ConsoleWrite($oCertStore.LastErrorText & @CRLF)
    Exit
EndIf

Local $sEmailAddr = "support@chilkatsoft.com"
Local $oCert = $oCertStore.FindCertBySubjectE($sEmailAddr)
If ($oCertStore.LastMethodSuccess <> True) Then
    ConsoleWrite("No certificate found for " & $sEmailAddr & @CRLF)
    Exit
EndIf

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

; It should be case-insensitive, however it was found not to be.
; The case-insensitive search is fixed starting in Chilkat v9.5.0.65.
$sEmailAddr = "SUPPORT@chilkatsoft.com"
$oCert = $oCertStore.FindCertBySubjectE($sEmailAddr)
If ($oCertStore.LastMethodSuccess <> True) Then
    ConsoleWrite("No certificate found for " & $sEmailAddr & @CRLF)
    Exit
EndIf

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