(VBScript) Add Private Key to Java Keystore

Adds a private key to an existing Java keystore.

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")

jksPassword = "myJksPassword"
jksPath = "/someDir/keyStore.jks"

' Load the Java keystore from a file.
success = jks.LoadFile(jksPassword,jksPath)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

' A JKS private key entry consists of both the private key,
' it's associated certificate (which contains the matching public key
' within the X.509 of the certificate), and the certificates in the
' chain of authentication to the root.
' 
' Therefore, to add a private key entry to a JKS requires
' a Chilkat certificate object that has a private key and which also
' has the certificate chain (up to the root) available.

' There are many ways to get a Chilkat certificate object
' that contains (within it) the private key and the certificate chain
' This example will show two possibilities:
' (1) Where the cert and issuing root are provided in PEM format in .crt files,
' and the private key is also provided in unencrypted PEM format (.key file).
' (2) Where the cert, private key, and issuing root are provided in a single PFX.

' First for the .crt / .key files:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")

' Chilkat will automatically determine the format of the cert file and load it correctly.
success = cert.LoadFromFile("/mycerts/alice.crt")
If (success <> 1) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Certificates required for building the chain of authentication can be
' added to an XML certificate vault object, and then provided as
' a source for obtaining certs when building the chain.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.XmlCertVault")
set certVault = CreateObject("Chilkat.XmlCertVault")
success = certVault.AddCertFile("/mycerts/ca.crt")
If (success <> 1) Then
    outFile.WriteLine(certVault.LastErrorText)
    WScript.Quit
End If

success = cert.UseCertVault(certVault)
If (success <> 1) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Now provide the associated private key to the certificate object.
' The Chilkat private key class provides methods for loading from many formats (both
' encrypted and unencrypted).
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey")
set privKey = CreateObject("Chilkat.PrivateKey")
success = privKey.LoadPemFile("/mycerts/alice.key")
If (success <> 1) Then
    outFile.WriteLine(privKey.LastErrorText)
    WScript.Quit
End If

' Provide the certificate object with the private key:
success = cert.SetPrivateKey(privKey)
If (success <> 1) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Our certificate object now contains all that we need to add it as a private key entry
' to the Java keystore:
alias = "alice"
success = jks.AddPrivateKey(cert,alias,jksPassword)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

' Write the updated JKS, which contains the new private key entry w/ certificate chain.
success = jks.ToFile(jksPassword,jksPath)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Added new private key entry (from .crt and .key files) to the JKS!")

' Now let's add a new private key entry from a PFX that contains a single
' private key with associated cert and cert chain.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pfx")
set pfx = CreateObject("Chilkat.Pfx")

success = pfx.LoadPfxFile("/myPfxFiles/my.pfx","pfxPassword")
If (success <> 1) Then
    outFile.WriteLine(pfx.LastErrorText)
    WScript.Quit
End If

' This is easy -- simply add the PFX to the JKS
alias = "bob"
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

' Write the updated JKS, which contains the new private key entry w/ certificate chain
' that came from the PFX.
success = jks.ToFile(jksPassword,jksPath)
If (success <> 1) Then
    outFile.WriteLine(jks.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Added new private key entry (from PFX) to the JKS!")

outFile.Close