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_9_5_0.CreateCS")
ccs.ReadOnly = 1
' Open the current-user certificate store:
' cs is a Chilkat_9_5_0.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_9_5_0.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>
|
