(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCertStore
LOCAL lnReadOnly
LOCAL lnSuccess
LOCAL lcEmailAddr
LOCAL loCert

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CertStore')
loCertStore = CreateObject('Chilkat.CertStore')

lnReadOnly = 1
lnSuccess = loCertStore.OpenCurrentUserStore(lnReadOnly)
IF (lnSuccess = 0) THEN
    ? loCertStore.LastErrorText
    RELEASE loCertStore
    CANCEL
ENDIF

lcEmailAddr = "support@chilkatsoft.com"
loCert = loCertStore.FindCertBySubjectE(lcEmailAddr)
IF (loCertStore.LastMethodSuccess <> 1) THEN
    ? "No certificate found for " + lcEmailAddr
    RELEASE loCertStore
    CANCEL
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 <> 1) THEN
    ? "No certificate found for " + lcEmailAddr
    RELEASE loCertStore
    CANCEL
ENDIF

? "Found: " + loCert.SubjectDN
RELEASE loCert

RELEASE loCertStore