dim o: Set o = createobject("MSXML2.XMLHTTP.6.0")
o.Open "GET", WScript.Arguments(0), False
o.Send
If o.Status >= 200 And o.Status <= 202 Then
WScript.Echo o.responseText
Else
WScript.Echo "Error"
End If