@echo off
set Save=D:\PDF
set Url=https://URL**********/
for %%a in ("%Url%") do set "FileName=%%~nxa"
if not defined Save set "Save=%cd%"
(echo Download ^(0^),^(1^)
echo Sub Download^(url,target^)
echo Const adTypeBinary = 1
echo Const adSaveCreateOverWrite = 2
echo Dim http,ado
echo Set http = CreateObject^(""^)
echo "GET",url,False
echo
echo Set ado = createobject^(""^)
echo = adTypeBinary
echo
echo
echo target
echo
echo End Sub)>
"%Url%" "%Save%\%FileName%"
del