(VBScript) Examine the Contents of a .p7m by Converting to XML
Examines the contents of a .p7m signature by converting it to XML.
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set asn = CreateObject("Chilkat_9_5_0.Asn")
success = asn.LoadBinaryFile("qa_data/p7m/a.p7m")
If (success <> 1) Then
outFile.WriteLine(asn.LastErrorText)
WScript.Quit
End If
' Convert to XML.
strXml = asn.AsnToXml()
' The XML returned by AsnToXml will be compact.
' To get the XML indented in human-readable form, load
' into the Chilkat XML object and emit..
set xml = CreateObject("Chilkat_9_5_0.Xml")
success = xml.LoadXml(strXml)
outFile.WriteLine(xml.GetXml())
success = xml.SaveXml("qa_output/a.xml")
' -----------------------------------------------------------------------------------------
' Also see Chilkat's online tool to examine a .p7m and generate code to duplicate the .p7m
' -----------------------------------------------------------------------------------------
outFile.Close
|