(VBScript) Create X509PKIPathv1 Containing one Certificate

Demonstrates how to create a X509PKIPathv1 containing one certificate.

Note: This example requires Chilkat v9.5.0.77 or later.

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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")

' There are many ways to load a certificate -- from a file, from a string or memory, etc.,
' and from many different formats.  This example loads the cert from a PEM file.
' (LoadFromFile will auto-recognize the format.)
success = cert.LoadFromFile("qa_data/certs/brasil_cert.pem")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' Get the X509PKIPathv1 in base64 format (single line)
s = cert.X509PKIPathv1()
If (cert.LastMethodSuccess = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("X509PKIPathv1: " & s)

outFile.Close