Skip to content

Instantly share code, notes, and snippets.

View b13bs's full-sized avatar

Étienne Ducharme b13bs

View GitHub Profile
echo Set args = WScript.Arguments > wget-bin.vbs
echo Url = args.Item(0) >> wget-bin.vbs
echo Path = args.Item(1) >> wget-bin.vbs
echo dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP") >> wget-bin.vbs
echo dim bStrm: Set bStrm = createobject("Adodb.Stream") >> wget-bin.vbs
echo xHttp.Open "GET", Url, False >> wget-bin.vbs
echo xHttp.Send >> wget-bin.vbs
echo with bStrm >> wget-bin.vbs
echo .type = 1 >> wget-bin.vbs
echo .open >> wget-bin.vbs