VBScript

Save a Public Key as an XML File

Demonstrates the Chilkat PublicKey.SaveXmlFile method, which saves the public key as Chilkat XML (the same text as GetXml) to a file. The only argument 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: The file-writing form of GetXml, for interoperating with .NET or XML-signature software that reads XML key values. As a public key it is not sensitive, so the resulting file can be shared. No byte-order mark or extra line-ending changes are added.

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 as Chilkat XML (the same text as GetXml).
success = pubKey.SaveXmlFile("qa_output/public_key.xml")
If (success = 0) Then
    outFile.WriteLine(pubKey.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Saved.")

outFile.Close