Lianja

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

See more Certificates Examples

Demonstrates how to import a certificate (without private key) into a Windows certificate store. Lianja

llSuccess = .F.

loCert = createobject("CkCert")

llSuccess = loCert.LoadFromFile("qa_data/certs/example.cer")
if (llSuccess = .F.) then
    ? loCert.LastErrorText
    release loCert
    return
endif

loCertStoreCU = createobject("CkCertStore")
llReadOnlyFlag = .F.

// "CurrentUser" and "My" are the exact keywords to select your user account's certificate store.
llSuccess = loCertStoreCU.OpenWindowsStore("CurrentUser","My",llReadOnlyFlag)
if (llSuccess = .F.) then
    ? "Failed to open the CurrentUser/My certificate store for read/write."
    release loCert
    release loCertStoreCU
    return
endif

// Import the certificate into the CurrentUser/My certificate store.
llSuccess = loCertStoreCU.AddCertificate(loCert)
if (llSuccess = .F.) then
    ? loCertStoreCU.LastErrorText
    release loCert
    release loCertStoreCU
    return
endif

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


release loCert
release loCertStoreCU