(Visual FoxPro) Import a Certificate (.cer file) into a Windows Certificate Store

See more Certificates Examples

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCert
LOCAL lnSuccess
LOCAL loCertStoreCU
LOCAL lnReadOnlyFlag

loCert = CreateObject('Chilkat.Cert')

lnSuccess = loCert.LoadFromFile("qa_data/certs/example.cer")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

loCertStoreCU = CreateObject('Chilkat.CertStore')
lnReadOnlyFlag = 0

* "CurrentUser" and "My" are the exact keywords to select your user account's certificate store.
lnSuccess = loCertStoreCU.OpenWindowsStore("CurrentUser","My",lnReadOnlyFlag)
IF (lnSuccess = 0) THEN
    ? "Failed to open the CurrentUser/My certificate store for read/write."
    RELEASE loCert
    RELEASE loCertStoreCU
    CANCEL
ENDIF

* Import the certificate into the CurrentUser/My certificate store.
lnSuccess = loCertStoreCU.AddCertificate(loCert)
IF (lnSuccess = 0) THEN
    ? loCertStoreCU.LastErrorText
    RELEASE loCert
    RELEASE loCertStoreCU
    CANCEL
ENDIF

? "Imported " + loCert.SubjectCN
? "Success."

RELEASE loCert
RELEASE loCertStoreCU