(VBScript) Convert CRL PEM to XML

Loads a CRL (Certificate Revocation List) from the PEM file format and converts to XML to allow for visual examination and parsing.

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

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 example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' This example requires Chilkat v9.5.0.77 or greater.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Pem")
set pem = CreateObject("Chilkat.Pem")

pem.VerboseLogging = 1
success = pem.LoadPemFile("qa_data/crl/sampleCrl.pem","password_not_used")
If (success <> 1) Then
    outFile.WriteLine(pem.LastErrorText)
    WScript.Quit
End If

numCrls = pem.NumCrls
i = 0

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Asn")
set asn = CreateObject("Chilkat.Asn")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.Xml")
Do While i < numCrls

    ' Get the CRL as base64 (multi-line)
    crlBase64 = pem.GetEncodedItem("crl","","base64_mime",i)
    If (pem.LastMethodSuccess <> 1) Then
        outFile.WriteLine(pem.LastErrorText)
        WScript.Quit
    End If

    outFile.WriteLine(crlBase64)

    success = asn.LoadEncoded(crlBase64,"base64")
    If (success <> 1) Then
        outFile.WriteLine(asn.LastErrorText)
        WScript.Quit
    End If

    ' Convert ASN.1 to XML and load into xml and re-emit for pretty printing..
    success = xml.LoadXml(asn.AsnToXml())
    outFile.WriteLine(xml.GetXml())

    ' Use this online tool to generate parsing code from CRL XML: 
    ' Generate Parsing Code from XML

    outFile.WriteLine("-------------------------------------")
    i = i + 1
Loop

outFile.Close