(DataFlex) Find a Certificate in the "Other People" Windows Certificate Store

Demonstrates how to open the "Current User --> Other People" Windows certificate store, and locates a certificate matching an email address.

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

Use ChilkatAx-win32.pkg

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

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

    // The "AddressBook" is the "Other People" certificate store as shown in certmgr.msc
    Move True To iReadOnly
    Get ComOpenWindowsStore Of hoCertStore "CurrentUser" "AddressBook" iReadOnly To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComFindCertByRfc822Name Of hoCertStore "sales.edifact@somewhere.com" 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
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComSubjectDN Of hoCert To sTemp1
    Showln "Found certificate: " sTemp1

    Send Destroy of hoCert


End_Procedure