VBScript

Save a Public Key as a PEM File

Demonstrates the Chilkat PublicKey.SavePemFile method, which saves the public key in PEM format. The first argument selects the representation and PEM label, and the second is the destination path.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: PEM is the most widely accepted public-key file format, so this is the usual way to write a key for distribution or for tools that expect a .pem. Choose false for the modern PUBLIC KEY (SubjectPublicKeyInfo) label in most cases, or true for the legacy RSA-specific label when required.

Chilkat VBScript Downloads

Download Chilkat for VBScript

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

'  Load a public key to export.  LoadFromFile inspects the content, so it accepts DER, PEM, XML,
'  JWK, and other supported representations.
set pubKey = CreateObject("Chilkat.PublicKey")
success = pubKey.LoadFromFile("qa_data/public.pem")
If (success = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

'  Save the public key in PEM format.  The 1st argument selects the representation and PEM label,
'  and the 2nd is the destination path.
preferPkcs1 = 0
success = pubKey.SavePemFile(preferPkcs1,"qa_output/public.pem")
If (success = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Saved.")

outFile.Close