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.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim ccs As New Chilkat.CreateCS()
ccs.ReadOnly = true

'  Open the current-user certificate store:
Dim cs As Chilkat.CertStore
cs = ccs.OpenCurrentUserStore()

If (Not (cs Is Nothing )) Then

    Dim cert As Chilkat.Cert
    Dim numCerts As Long
    numCerts = cs.NumCertificates
    Dim i As Long
    '  Print the distinguished name of each certificate
    For i = 0 To numCerts - 1
        cert = cs.GetCertificate(i)

        Dim filename As String
        filename = "certs/" & cert.SerialNumber & ".cer"

        cert.ExportCertDerFile(filename)

    Next

Else
    MsgBox(ccs.LastErrorText)
End If