3 if WScript.Arguments.Count < 2 then
\r
4 WScript.Echo "usage: http-get.vbs source-url dest-file"
\r
7 source_url = WScript.Arguments.Item(0)
\r
8 dest_filename = WScript.Arguments.Item(1)
\r
10 dim http, source_data
\r
11 set http = CreateObject("WinHttp.WinHttpRequest.5.1")
\r
14 http.Open "GET", source_url, false
\r
17 if Err.Number = 0 then
\r
18 if http.Status = 200 then
\r
21 set dest_stream = CreateObject("A"+odd+"B"+".Stream")
\r
24 dest_stream.Type = 1 ' adTypeBinary
\r
26 dest_stream.Write http.ResponseBody
\r
27 dest_stream.SaveToFile dest_filename, 2 ' adSaveCreateOverWrite
\r
28 if Err.Number <> 0 then
\r
29 WScript.Echo "Error " + CStr(Err.Number) + " when writing " + dest_filename + ":"
\r
30 WScript.Echo Err.Description
\r
34 WScript.Echo CStr(http.Status) + " " + http.StatusText + " when fetching " + source_url
\r
38 WScript.Echo "Error " + CStr(Err.Number) + " when fetching " + source_url + ":"
\r
39 WScript.Echo Err.Description
\r