(VBScript) Combine Multiple PKCS12's into a Single Java KeyStore

Combines multiple PKCS12's into a single Java KeyStore (JKS) file. To combine multiple PKCS12 files into a single JKS, simply load each PKCS12 into a PFX object, add it to the Java keystore object via the AddPfx method, and then finally write the Java keystore at the very end.

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)

' This requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

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

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

' Combines several PKCS12's into a single JKS.
' Simply load each, add it to the keystore, and then 
' save at the very end.

jksPassword = "jksSecret"

' Add the 1st PFX...
pfxPassword = "secret1"
success = pfx.LoadPfxFile("/someDir/file1.p12",pfxPassword)
If (success <> 1) Then
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

alias = "alias1"
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

' Add the 2nd PFX...
pfxPassword = "secret2"
success = pfx.LoadPfxFile("/someDir/file2.p12",pfxPassword)
If (success <> 1) Then
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

alias = "alias2"
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

' We can continue adding as many PFX's as desired...

' Write the Java keystore to a file:
success = jks.ToFile(jksPassword,"/jksFiles/my.jks")
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
Else
    outFile.WriteLine("Successfully combined multiple PKCS12's into a single JKS")
End If


outFile.Close