VBScript

Convert PKCS12 / PFX to Java KeyStore

See more Java KeyStore (JKS) Examples

Converts a PKCS12 / PFX file to a Java keystore (JKS) file. 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

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

set jks = CreateObject("Chilkat.JavaKeyStore")

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