(Lianja) Find Certificate for Email Address in Current-User Certificate Store (Windows-Only)

This is a Windows-only example to find a certificate for a given email address in the current-user certificate store (located in the Windows Registry).

Chilkat Lianja Extension Download Chilkat Lianja Extension

// This is a Windows-only example because it lists the certificates
// stored in the Windows Current User Certificate Store located in the
// Windows Registry.

loCertStore = createobject("CkCertStore")

llReadOnly = .T.
llSuccess = loCertStore.OpenCurrentUserStore(llReadOnly)
if (llSuccess = .F.) then
    ? loCertStore.LastErrorText
    release loCertStore
    return
endif

lcEmailAddr = "support@chilkatsoft.com"
loCert = loCertStore.FindCertBySubjectE(lcEmailAddr)
if (loCertStore.LastMethodSuccess <> .T.) then
    ? "No certificate found for " + lcEmailAddr
    release loCertStore
    return
endif

? "Found: " + loCert.SubjectDN
release loCert

// It should be case-insensitive, however it was found not to be.
// The case-insensitive search is fixed starting in Chilkat v9.5.0.65.
lcEmailAddr = "SUPPORT@chilkatsoft.com"
loCert = loCertStore.FindCertBySubjectE(lcEmailAddr)
if (loCertStore.LastMethodSuccess <> .T.) then
    ? "No certificate found for " + lcEmailAddr
    release loCertStore
    return
endif

? "Found: " + loCert.SubjectDN
release loCert


release loCertStore