Link öffnen, bzw. Datei herunterladen per Batch

@echo off
set to_download=https://speisemeister.net/tageskarte-pdf.html?tx_webkitpdf_pi1[urls]=https://speisemeister.net/tageskarte.html?type=97
set save_to=c:\users\%username%\Desktop\Tageskarte.pdf
set autoopen=0

rem --------------------------------------------------------------------------------------------
set DLOAD_SCRIPT=download.vbs
echo Option Explicit                                                    >  %DLOAD_SCRIPT%
echo Dim args, http, fileSystem, adoStream, url, target, status         >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set args = Wscript.Arguments                                       >> %DLOAD_SCRIPT%
echo Set http = CreateObject("WinHttp.WinHttpRequest.5.1")              >> %DLOAD_SCRIPT%  
echo url = args(0)                                                      >> %DLOAD_SCRIPT%
echo target = args(1)                                                   >> %DLOAD_SCRIPT%
echo WScript.Echo "Lade '" ^& target ^& "' von '" ^& url ^& "'..." 		>> %DLOAD_SCRIPT%  
echo.                                                                   >> %DLOAD_SCRIPT%
echo http.Open "GET", url, False                                        >> %DLOAD_SCRIPT%  
echo http.Send                                                          >> %DLOAD_SCRIPT%
echo status = http.Status                                               >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo If status ^<^> 200 Then                                            >> %DLOAD_SCRIPT%
echo    WScript.Echo "Download fehlgeschlagen: HTTP Status " ^& status  >> %DLOAD_SCRIPT%  
echo    WScript.Quit 1                                                  >> %DLOAD_SCRIPT%
echo Else                                                  				>> %DLOAD_SCRIPT%
echo    WScript.Echo "Download fertig"  								>> %DLOAD_SCRIPT%  
echo End If                                                             >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set adoStream = CreateObject("ADODB.Stream")                       >> %DLOAD_SCRIPT%  
echo adoStream.Open                                                     >> %DLOAD_SCRIPT%
echo adoStream.Type = 1                                                 >> %DLOAD_SCRIPT%
echo adoStream.Write http.ResponseBody                                  >> %DLOAD_SCRIPT%
echo adoStream.Position = 0                                             >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%
echo Set fileSystem = CreateObject("Scripting.FileSystemObject")        >> %DLOAD_SCRIPT%  
echo If fileSystem.FileExists(target) Then fileSystem.DeleteFile target >> %DLOAD_SCRIPT%
echo adoStream.SaveToFile target                                        >> %DLOAD_SCRIPT%
echo adoStream.Close                                                    >> %DLOAD_SCRIPT%
echo.                                                                   >> %DLOAD_SCRIPT%


cscript //Nologo %DLOAD_SCRIPT% %to_download% %save_to%

del %DLOAD_SCRIPT%

if %autoopen% EQU 1 start "" %save_to%  

powershell -EP Bypass -C "Invoke-WebRequest '%link%' -Outfile '%name_der_heruntergeladenen_datei%'"  

[System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::GetNames([System.Net.SecurityProtocolType]) 

(New-Object System.Net.WebClient).DownloadFile('URL','C:\dateiname.ext')  

powershell -EP Bypass -C "[System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::GetNames([System.Net.SecurityProtocolType]) ; (New-Object System.Net.WebClient).DownloadFile('URL','C:\dateiname.ext')"