(VBScript) Convert PKCS12 / PFX to Java KeyStore

Converts a PKCS12 / PFX file 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 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")

pfxPassword = "secret"

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

alias = "someAlias"
jksPassword = "jksSecret"

' Add the PKCS12 to the empty Java keystore object:
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

' 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 converted PKCS12 to JKS")
End If


outFile.Close