(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkCertStore.pb"

Procedure ChilkatExample()

    certStore.i = CkCertStore::ckCreate()
    If certStore.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; The "AddressBook" is the "Other People" certificate store as shown in certmgr.msc
    readOnly.i = 1
    success.i = CkCertStore::ckOpenWindowsStore(certStore,"CurrentUser","AddressBook",readOnly)
    If success <> 1
        Debug CkCertStore::ckLastErrorText(certStore)
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    cert.i
    cert = CkCertStore::ckFindCertByRfc822Name(certStore,"sales.edifact@somewhere.com")
    If CkCertStore::ckLastMethodSuccess(certStore) <> 1
        Debug CkCertStore::ckLastErrorText(certStore)
        CkCertStore::ckDispose(certStore)
        ProcedureReturn
    EndIf

    Debug "Found certificate: " + CkCert::ckSubjectDN(cert)

    CkCert::ckDispose(cert)



    CkCertStore::ckDispose(certStore)


    ProcedureReturn
EndProcedure