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.

set ccs = CreateObject("Chilkat.CreateCS")
ccs.ReadOnly = 1

'  Open the current-user certificate store:

' cs is a Chilkat.CertStore
Set cs = ccs.OpenCurrentUserStore()

If (Not (cs Is Nothing )) Then

    numCerts = cs.NumCertificates

    '  Print the distinguished name of each certificate
    For i = 0 To numCerts - 1
        ' cert is a Chilkat.Cert
        Set cert = cs.GetCertificate(i)

        filename = "certs/" & cert.SerialNumber & ".cer"

        cert.ExportCertDerFile filename

    Next

Else
    MsgBox ccs.LastErrorText
End If