VBScript

Load PFX (PKCS#12) and List Certificates

See more Certificates Examples

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

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

success = 0

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

set cert = CreateObject("Chilkat.Cert")
i = 0
Do While i < numCerts
    success = certStore.GetCert(i,cert)

    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