(VBScript) Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

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)

' Note: This example requires the Chilkat Bundle license.

' Any string argument automatically begins the 30-day trial.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Global")
set glob = CreateObject("Chilkat.Global")
success = glob.UnlockBundle("30-day trial")
If (success <> 1) Then
    outFile.WriteLine(glob.LastErrorText)
    WScript.Quit
End If

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

html = http.QuickGetStr("http://www.intel.com/")
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

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

' Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset = "utf-8"

' Set the HTML:
htmlToXml.Html = html

' Convert to XML:

xml = htmlToXml.ToXml()

' Save the XML to a file.
' Make sure your charset here matches the charset
' used for the XmlCharset property.
success = htmlToXml.WriteStringToFile(xml,"qa_output/out.xml","utf-8")

outFile.WriteLine("Finished.")

outFile.Close