[Batch] Download File from Internet script

@echo off
set savefilepath=%userprofile%\Desktop\GraphZuck.txt
set downloadlink=http://graph.facebook.com/Zuck
rem -----------------------------------------------------
cd %appdata%
echo dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")>dl.vbs
echo dim bStrm: Set bStrm = createobject("Adodb.Stream")>>dl.vbs
echo xHttp.Open "GET", "%downloadlink%", False>>dl.vbs
echo xHttp.Send>>dl.vbs
echo with bStrm>>dl.vbs
echo     .type = 1 '//binary>>dl.vbs
echo     .open>>dl.vbs
echo     .write xHttp.responseBody>>dl.vbs
echo     .savetofile "%savefilepath%", 2 '//overwrite>>dl.vbs
echo end with>>dl.vbs
start /min /WAIT dl.vbs
del /q %appdata%\dl.vbs