VBScript

Convert PKCS12 / PFX to Java Keystore (JKS)

See more PFX/P12 Examples

Loads a PKCS12 / PFX file and saves it 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 example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set pfx = CreateObject("Chilkat.Pfx")

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

jksPassword = "myJksPassword"
alias = "firstPrivateKeyAlias"

set jks = CreateObject("Chilkat.JavaKeyStore")

' 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.
success = pfx.ToJksObj(alias,jksPassword,jks)
If (success = 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