(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCertStore
    Boolean iReadOnly
    Boolean iSuccess
    String sEmailAddr
    Variant vCert
    Handle hoCert
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatCertStore)) To hoCertStore
    If (Not(IsComObjectCreated(hoCertStore))) Begin
        Send CreateComObject of hoCertStore
    End

    Move True To iReadOnly
    Get ComOpenCurrentUserStore Of hoCertStore iReadOnly To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Move "support@chilkatsoft.com" To sEmailAddr
    Get ComFindCertBySubjectE Of hoCertStore sEmailAddr To vCert
    If (IsComObject(vCert)) Begin
        Get Create (RefClass(cComChilkatCert)) To hoCert
        Set pvComObject Of hoCert To vCert
    End
    Get ComLastMethodSuccess Of hoCertStore To bTemp1
    If (bTemp1 <> True) Begin
        Showln "No certificate found for " sEmailAddr
        Procedure_Return
    End

    Get ComSubjectDN Of hoCert To sTemp1
    Showln "Found: " sTemp1
    Send Destroy of hoCert

    // 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.
    Move "SUPPORT@chilkatsoft.com" To sEmailAddr
    Get ComFindCertBySubjectE Of hoCertStore sEmailAddr To vCert
    If (IsComObject(vCert)) Begin
        Get Create (RefClass(cComChilkatCert)) To hoCert
        Set pvComObject Of hoCert To vCert
    End
    Get ComLastMethodSuccess Of hoCertStore To bTemp1
    If (bTemp1 <> True) Begin
        Showln "No certificate found for " sEmailAddr
        Procedure_Return
    End

    Get ComSubjectDN Of hoCert To sTemp1
    Showln "Found: " sTemp1
    Send Destroy of hoCert


End_Procedure