@echo off
if %1$==$ SET URL="http://hallo-welt.ch/data/_uploaded/file/setups/wget.exe"
if %2$==$ SET DW_TARGET="c:\Users\macadmin\Desktop\wget.exe"
if %3$==$ SET OUTPUT_FILE=downloadfile.vbs
cls
ECHO Create VB-Script for Downloading a File
ECHO -------------------------------------------------
ECHO ' %OUTPUT_FILE% downloads file from a url>%OUTPUT_FILE%
ECHO ' -------------------------------------------->>%OUTPUT_FILE%
ECHO ' Set your settings>>%OUTPUT_FILE%
ECHO     strFileURL = %URL%>>%OUTPUT_FILE%
ECHO     strHDLocation = %DW_TARGET%>>%OUTPUT_FILE%
ECHO ' >>%OUTPUT_FILE%
ECHO ' Fetch the file>>%OUTPUT_FILE%
ECHO     Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")>>%OUTPUT_FILE%
ECHO ' >>%OUTPUT_FILE%
ECHO     objXMLHTTP.open "GET", strFileURL, false>>%OUTPUT_FILE%
ECHO     objXMLHTTP.send()>>%OUTPUT_FILE%
ECHO ' >>%OUTPUT_FILE%
ECHO If objXMLHTTP.Status = 200 Then>>%OUTPUT_FILE%
ECHO Set objADOStream = CreateObject("ADODB.Stream")>>%OUTPUT_FILE%
ECHO objADOStream.Open>>%OUTPUT_FILE%
ECHO objADOStream.Type = 1 'adTypeBinary>>%OUTPUT_FILE%
ECHO ' >>%OUTPUT_FILE%
ECHO objADOStream.Write objXMLHTTP.ResponseBody>>%OUTPUT_FILE%
ECHO objADOStream.Position = 0    'Set the stream position to the start>>%OUTPUT_FILE%
ECHO ' >>%OUTPUT_FILE%
ECHO Set objFSO = Createobject("Scripting.FileSystemObject")>>%OUTPUT_FILE%
ECHO If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation>>%OUTPUT_FILE%
ECHO Set objFSO = Nothing>>%OUTPUT_FILE%
ECHO ' >>%OUTPUT_FILE%
ECHO objADOStream.SaveToFile strHDLocation>>%OUTPUT_FILE%
ECHO objADOStream.Close>>%OUTPUT_FILE%
ECHO Set objADOStream = Nothing>>%OUTPUT_FILE%
ECHO End if>>%OUTPUT_FILE%
ECHO ' >>%OUTPUT_FILE%
ECHO Set objXMLHTTP = Nothing>>%OUTPUT_FILE%
SET URL=
SET DW_TARGET=
call cscript.exe %OUTPUT_FILE%
SET OUTPUT_FILE=
del c:\Users\macadmin\Desktop\downloadfile.vbs /Q
call C:\Users\macadmin\Desktop\wget.exe http://www.hallo-welt.ch/0_salamand.exe
call C:\Users\macadmin\Desktop\wget.exe http://hallo-welt.ch/data/_uploaded/file/setups/AutoIt3.exe
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('#r')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('C:\Users\macadmin\Desktop\0_salamand.exe')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{ENTER}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinWait('Servant Salamander')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinActivate('Servant Salamander')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{ALTDOWN}{F7}{ALTUP}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinWait('Suchen')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{TAB}{TAB}{ENTER}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('C:\Users\macadmin\Desktop\AutoIt3.exe')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{TAB}{SPACE}{ENTER}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{ALTDOWN}a{ALTUP}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinWait('Servant Salamander')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{ALTDOWN}u{ALTUP}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{ALTDOWN}{ENTER}{ALTUP}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinWait('Eigenschaften von AutoIt3')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{CTRLDOWN}{PGDN}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinWait('Eigenschaften von AutoIt3')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{CTRLUP}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{SPACE}{ENTER}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinActivate('Servant Salamander')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "WinClose('Servant Salamander')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{CTRLDOWN}')"
%~dp0AutoIt3.exe /AutoIt3ExecuteLine  "Send('{CTRLUP}')"
pause
exit