(VBScript) Load PFX (PKCS#12) and List Certificates

Loads a PFX file (.pfx, .p12) and iterates over the certificates found within.

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")

pfxPath = "/Users/chilkat/testData/pfx/chilkat_ssl.pfx"
pfxPassword = "test"
success = certStore.LoadPfxFile(pfxPath,pfxPassword)
If (success <> 1) Then
    outFile.WriteLine(certStore.LastErrorText)
    WScript.Quit
End If

numCerts = certStore.NumCertificates

outFile.WriteLine("PFX contains " & numCerts & " certificates")

i = 0
Do While i < numCerts
    ' cert is a Chilkat.Cert
    Set cert = certStore.GetCertificate(i)

    outFile.WriteLine(i & ": (Common Name) " & cert.SubjectCN)
    outFile.WriteLine(i & ": (Serial Number) " & cert.SerialNumber)
    outFile.WriteLine(i & ": (Distinguished Name) " & cert.SubjectDN)

    i = i + 1
Loop

outFile.Close