'''''''''''''''''''''''''''''''''''''''''
'Grab HTML from example.com via HTTP get'
'''''''''''''''''''''''''''''''''''''''''
dim http, url, WScript, doc

Set http = CreateObject("MSXML2.XMLHTTP")
url = "https://example.com/"
http.Open "GET", url, False

http.Send ""

If  http.Status = 200 Then
  doc = Application.NewDocument
  doc.Lines.Add(http.responseText )
Else
  MsgBox "HTTP error " & http.Status & " " & http.statusText, vbExclamation, "HTTP"
End If