(Lianja) 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 Lianja Extension Download Chilkat Lianja Extension

loCertStore = createobject("CkCertStore")

// The "AddressBook" is the "Other People" certificate store as shown in certmgr.msc
llReadOnly = .T.
llSuccess = loCertStore.OpenWindowsStore("CurrentUser","AddressBook",llReadOnly)
if (llSuccess <> .T.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

loCert = loCertStore.FindCertByRfc822Name("sales.edifact@somewhere.com")
if (loCertStore.LastMethodSuccess <> .T.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

? "Found certificate: " + loCert.SubjectDN

release loCert


release loCertStore