Lianja

Find a Certificate in the "Other People" Windows Certificate Store

See more Certificates Examples

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

llSuccess = .F.

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

// Find the certificate for the email address:
loJsonE = createobject("CkJsonObject")
loJsonE.UpdateString("email","joe@example.com")

loCert = createobject("CkCert")
llSuccess = loCertStore.FindCert(loJsonE,loCert)
if (llSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCertStore
    release loJsonE
    release loCert
    return
endif

? "Found certificate: " + loCert.SubjectDN


release loCertStore
release loJsonE
release loCert