PVK to XML

Convert RSA .pvk (private key) to XML.

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set pvk = CreateObject("Chilkat.PrivateKey")

'  Password is "wiggy"
success = pvk.LoadPvkFile("myKey.pvk","wiggy")
If (success = 0) Then
    outFile.WriteLine(pvk.LastErrorText)
    WScript.Quit
End If

'  Save it as XML:
success = pvk.SaveXmlFile("myKey.xml")
If (success = 0) Then
    outFile.WriteLine(pvk.LastErrorText)
    WScript.Quit
End If

outFile.Close