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.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%

set ccs = Server.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
    Response.Write "<pre>" & Server.HTMLEncode(ccs.LastErrorText) & "</pre>"
End If


%>
</body>
</html>