Скрипт скачивания и запуска файла из Сети

Рейтинг: 1Ответов: 1Опубликовано: 14.11.2014

Пример:

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

Пример нашел в Сети, но он почему-то не работает.

vbscript bat
Источник: Stack Overflow на русском

Ответы

▲ 2

Для записи в корень диска С необходимы права администратора. Попробуйте запустить скрипт от имени администратора. Также, возможно, Ваш антивирус блокирует подобные действия, т.к. они характерны для вредоносных программ. Если проблема не в этом, то, пожалуйста, более подробно опишите ее.