Export All Certificates to .cer Files

Demonstrates how to export all certificates from a registry-based certificate store to .cer files where each filename is the serial number.

LOCAL loCcs
LOCAL loCs
LOCAL loCert
LOCAL lnNumCerts
LOCAL i
LOCAL lcFilename


loCcs = CreateObject('Chilkat.CreateCS')
loCcs.ReadOnly = 1

*  Open the current-user certificate store:

loCs = loCcs.OpenCurrentUserStore()

IF (NOT (loCs = NULL )) THEN

    lnNumCerts = loCs.NumCertificates

    *  Print the distinguished name of each certificate
    FOR i = 0 TO lnNumCerts - 1
        loCert = loCs.GetCertificate(i)

        lcFilename = "certs/" + loCert.SerialNumber + ".cer"

        loCert.ExportCertDerFile(lcFilename)

    NEXT

ELSE
    =MESSAGEBOX(loCcs.LastErrorText)
ENDIF