Load PFX (PKCS#12) and List Certificates

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

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

If (numCerts = 0) Then
    WScript.Quit
End If

For i = 0 To (numCerts - 1)

    ' cert is a Chilkat.Cert
    Set cert = certStore.GetCertificate(i)
    If (Not (cert Is Nothing )) Then
        outFile.WriteLine(i & ": (Common Name) " _
             & cert.SubjectCN)
        outFile.WriteLine(i & ": (Serial Number) " _
             & cert.SerialNumber)
        outFile.WriteLine(i & ": (Distinguished Name) " _
             & cert.SubjectDN)

    End If

Next
outFile.Close