(DataFlex) Find Certificate by Subject CN (Common Name)

See more Cert Store Examples

Demonstrates how to find a certificate having the specified subject CN.

Note: Requires Chilkat v10.1.2 or later.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vCert
Store    Handle hoCertStore
    Boolean iReadOnly
    Boolean iSuccess
    Variant vJson
    Handle hoJson
    Variant vCert
    Handle hoCert
    String sTemp1

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

    // This opens the Current User certificate store on Windows,
    // On MacOS and iOS it opens the default Keychain.
    Move False To iReadOnly
    Get ComOpenCurrentUserStore Of hoCertStore iReadOnly To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCertStore To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Find the certificate having a Subject CN = "Example ABC".
    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "CN" "Example ABC" To iSuccess

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End
    Get pvComObject of hoJson to vJson
    Get pvComObject of hoCert to vCert
    Get ComFindCert Of hoCertStore vJson vCert To iSuccess
    If (iSuccess = True) Begin
        // Show the full distinguished name of the certificate.
        Get ComSubjectDN Of hoCert To sTemp1
        Showln "Found: " sTemp1
    End
    Else Begin
        Showln "Not found."
    End



End_Procedure