VBScript

Load XML from a Remote URL

Demonstrates how to load XML from a remote URL, such as https://www.chilkatsoft.com/hamlet.xml VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' This example assumes the Chilkat HTTP API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = CreateObject("Chilkat.Http")
set sbXml = CreateObject("Chilkat.StringBuilder")

' Download the XML from the URL into sbXml
success = http.QuickGetSb("https://www.chilkatsoft.com/hamlet.xml",sbXml)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

set xml = CreateObject("Chilkat.Xml")

' Load the XML contained in sbXml
success = xml.LoadSb(sbXml,1)
If (success = 0) Then
    outFile.WriteLine(xml.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close