Загрузите файл VBS

У меня есть VBS Script, что, генерирует URL для загрузки файла с сервера в моей сети. Я теперь должен загрузить файл на "C:\rWallpaper\wallpaper.png", URL хранится в переменной "url".

Я хотел бы, чтобы это работало что-то как wget на Linux, просто загрузило и сохранило файл к указанному местоположению.

20
задан scientist_7 20 August 2019 в 12:51
поделиться

1 ответ

Вы можете загружать с помощью XMLHTTP и использовать поток ADO для записи двоичных данных;

dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://example.com/someimage.png", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "c:\temp\someimage.png", 2 '//overwrite
end with
41
ответ дан 29 November 2019 в 23:16
поделиться
Другие вопросы по тегам:

Похожие вопросы: