Windows

Загрузить файл из интернет через vbscript

InetFile = "http://filmitorrent.org/boevik/3000-sdelano-v-amerike-2017.html"
localFile = "c:\temp\2.html"

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", InetFile, 0
oXMLHTTP.Send

Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 
oADOStream.Type = 1 
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody

oADOStream.SaveToFile localFile, 2

Set oXMLHTTP = Nothing
Set oADOStream = Nothing