У меня есть VBS Script, что, генерирует URL для загрузки файла с сервера в моей сети. Я теперь должен загрузить файл на "C:\rWallpaper\wallpaper.png"
, URL хранится в переменной "url"
.
Я хотел бы, чтобы это работало что-то как wget на Linux, просто загрузило и сохранило файл к указанному местоположению.
Вы можете загружать с помощью 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