(VBScript) Backup Windows Current User / Personal Certificates to a .zip

Demonstrates how to backup the certificates in the Windows registry-based Current User certificate store (in the "Personal" Logical Store as seen in certmgr.msc), to a zip archive. Certificates having an exportable private key are exported to .pfx files. Certificates with no private key, or with a non-exportable private key, are exported to .cer files.

Obviously, this example only runs on Windows computers.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CertStore")
set certStore = CreateObject("Chilkat.CertStore")

readOnly = 1
success = certStore.OpenCurrentUserStore(readOnly)
If (Not success) Then
    outFile.WriteLine(certStore.LastErrorText)
    WScript.Quit
End If

pfxPassword = "secret"

allSuccess = 1
numSuccess = 0

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Zip")
set zip = CreateObject("Chilkat.Zip")
success = zip.NewZip("qa_output/personalCerts.zip")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set certData = CreateObject("Chilkat.BinData")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbFilename = CreateObject("Chilkat.StringBuilder")

' Iterate over the certificates in the Current User store.
numCerts = certStore.NumCertificates
i = 0
Do While i < numCerts
    ' cert is a Chilkat.Cert
    Set cert = certStore.GetCertificate(i)
    outFile.WriteLine("DN = " & cert.SubjectDN)

    success = sbFilename.SetString("cert")
    success = sbFilename.AppendInt(i + 1)

    bHasPrivateKey = cert.HasPrivateKey()
    If ((bHasPrivateKey = 1) And (cert.PrivateKeyExportable = 1)) Then
        ' Export to a .pfx
        success = cert.ExportToPfxBd(pfxPassword,1,certData)
        If (success = 1) Then
            success = sbFilename.Append(".pfx")
            ' entry is a Chilkat.ZipEntry
            Set entry = zip.AppendBd(sbFilename.GetAsString(),certData)

        End If

    Else
        ' Export to a .cer
        success = cert.ExportCertDerBd(certData)
        If (success = 1) Then
            success = sbFilename.Append(".cer")
            ' entry is a Chilkat.ZipEntry
            Set entry = zip.AppendBd(sbFilename.GetAsString(),certData)

        End If

    End If

    If (success <> 1) Then
        allSuccess = 0
    Else
        numSuccess = numSuccess + 1
    End If

    i = i + 1
Loop

If (numSuccess > 0) Then
    success = zip.WriteZipAndClose()
    If (success <> 1) Then
        outFile.WriteLine(zip.LastErrorText)
        allSuccess = 0
    End If

End If

outFile.WriteLine("All success = " & allSuccess)

outFile.Close