(VBScript) Load PKCS12 / PFX and Access Contents

Loads a PKCS12 / PFX file and iterates over the contents which include private keys and certificates.

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.Pfx")
set pfx = CreateObject("Chilkat.Pfx")

' Load the PKCS12 from a file
success = pfx.LoadPfxFile("/someDir/my.p12","pfxFilePassword")
If (success <> 1) Then
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

numPrivateKeys = pfx.NumPrivateKeys

outFile.WriteLine("Private Keys:")

i = 0
Do While i < numPrivateKeys
    ' privKey is a Chilkat.PrivateKey
    Set privKey = pfx.GetPrivateKey(i)

    ' Do something with the private key ...

    i = i + 1
Loop

numCerts = pfx.NumCerts

outFile.WriteLine("Certs:")
i = 0
Do While i < numCerts
    ' cert is a Chilkat.Cert
    Set cert = pfx.GetCert(i)
    outFile.WriteLine(cert.SubjectDN)

    ' If the certificate has a private key (one of the private keys within the PFX)
    ' then it can also be obtained via the certificate object:
    If (cert.HasPrivateKey() = 1) Then

        outFile.WriteLine("Has private key!")

        ' privKey is a Chilkat.PrivateKey
        Set privKey = cert.ExportPrivateKey()
        ' ...

    End If

    i = i + 1
Loop

outFile.Close