Set oADOStream = CreateObject("ADODB.Stream")

помогала замена на

Set oADOStream = CreateObject("ADODB" & ".Stream")

А, да, не заметил выше подобный прием предложен

А вообще, если антивирь заточен на "не давать скачать и запустить", но это можно обойти скриптовыми технологиями, - значит его автор не кто иной, как В.Пупкин.

Значит я нарядил все создателей антивирусов в В. Пупкиных Скрин с virustotal.com:

«Объяснить» антивирусу, что данный конкретный файл по данному конкретному пути не является вирусом.

Скрипт создавался для автоматизации процесса закачки - запуска. Если бы скрипт нужно было запустить на одном компьютере то конечно было бы легче прописать исключения антивирусу. Но скрипт планируется запускать на других компьютерах и на каждом нет возможности прописывать исключения антвирусам.

Каким именно образом Вы сие определили? Ибо это типичная реакция как раз на связку «ADODB.Stream»+ «.SaveToFile "*.exe"».

Методом проб и ошибок. Вы правы антивирус срабатывает на поведение скрипта "скачать + запустить".  Что можно сделать?

Ругается на слово "Run" в синтаксисе WshShell.Run

Каким именно образом Вы сие определили? Ибо это типичная реакция как раз на связку «ADODB.Stream»+ «.SaveToFile "*.exe"».

Execute "CreateObject(""Wscript.Shell"")" & ".R" & "un """ & path & "wrar500ru.exe"", , true"

:D

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://rarlab.com/rar/wrar500ru.exe", 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "C:\wrar500ru.exe", 2
dim path, WshShell
path = "C:\"
set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run path & "wrar500ru.exe", ,true