(VBScript) Convert PKCS12 / PFX to Java Keystore (JKS)

Loads a PKCS12 / PFX file and saves it to a Java keystore (JKS) file.

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

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

jksPassword = "myJksPassword"
alias = "firstPrivateKeyAlias"

' Convert to a Java keystore object.
' The jksPassword is the password to be used for the JKS private key entries. 
' It may be the same as the PFX password, but can also be different if desired.
' jks is a Chilkat.JavaKeyStore
Set jks = pfx.ToJavaKeyStore(alias,jksPassword)
If (pfx.LastMethodSuccess = 0) Then
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

' Save the Java keystore to a file.
success = jks.ToFile(jksPassword,"/myKeystores/my.jks")
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)

    WScript.Quit
End If

outFile.WriteLine("Successfully converted PFX to JKS.")

outFile.Close