Download function

@echo off
call :download https://pastebin.com/raw/kz5piKnE "%userprofile%\Desktop\example.txt"
exit

:download
REM Syntax
REM call :download https://pastebin.com/raw/kz5piKnE "%userprofile%\Desktop\example.txt"
set dls=%random%
echo On Error Resume Next>%temp%\dl%dls%.vbs
echo dim xHttp: Set xHttp = createobject("MSXML2.ServerXMLHTTP")>>%temp%\dl%dls%.vbs
echo dim bStrm: Set bStrm = createobject("Adodb.Stream")>>%temp%\dl%dls%.vbs
echo xHttp.Open "GET", "%1", False>>%temp%\dl%dls%.vbs
echo xHttp.setRequestHeader "Cache-Control", "max-age=0">>%temp%\dl%dls%.vbs
echo xHttp.Send>>%temp%\dl%dls%.vbs
echo with bStrm>>%temp%\dl%dls%.vbs
echo     .type = 1 '//binary>>%temp%\dl%dls%.vbs
echo     .open>>%temp%\dl%dls%.vbs
echo     .write xHttp.responseBody>>%temp%\dl%dls%.vbs
echo     .savetofile %2, 2 '//overwrite>>%temp%\dl%dls%.vbs
echo end with>>%temp%\dl%dls%.vbs
start /min /WAIT %temp%\dl%dls%.vbs
del /q %temp%\dl%dls%.vbs
exit /b