Batch to exe als offene Lösung nutzen "wollen"

:starten
if exist 1.xlsx (set "ver= - - - OFFLINE - - -  ") else (set "ver=")  
if exist 1.xlsx (set "onl=3   Online schalten") else (set "onl=")  
if exist 1.xlsx (set "reinigen=4   Reinigung vorhandener Pläne") else (set "reinigen=")  
 >"%temp%\msgbox.vbs" ECHO WScript.Echo InputBox("" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "1  %ver%Aktuelle Woche" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "2  %ver%Kommende Woche" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "%onl%" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "%reinigen%" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "%prozess%" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO    "" ^& vbCrLf ^& _  
>>"%temp%\msgbox.vbs" ECHO "",  _  
>>"%temp%\msgbox.vbs" ECHO "Optionen")  
SET "all-a="  
for /f "delims=" %%i in ('cscript //nologo %temp%\msgbox.vbs') do set "all-a=%%i"  
DEL "%temp%\msgbox.vbs"  
if not defined all-a (goto :menu-exit) else (goto :menu-fin)
:menu-exit
taskkill /F /IM cscript.exe
del batch.exe Wbusy.exe
exit
:menu-fin
:: Überprüfung, ob Eingaben richtig sind, anonsten Ausstieg
if %all-a% LSS 1 goto :timeit
if %all-a%==1 goto :laufende
if %all-a%==2 goto :kommende
if %all-a%==3 goto :online
if %all-a%==4 goto :reinigung
if %all-a%==Optionen goto :mehr
if %all-a% GTR 3 goto :starten
...

taskkill /F /IM cscript.exe
@echo on & setlocal
set "s-sv=Adresse"  
set "s-us=Username"  
set "s-pw=Passwort"  
 >"%temp%\senden.txt" ECHO open %s-sv%  
>>"%temp%\senden.txt" ECHO %s-us%  
>>"%temp%\senden.txt" ECHO %s-pw%  
>>"%temp%\senden.txt" ECHO cd update  
>>"%temp%\senden.txt" ECHO binary  
>>"%temp%\senden.txt" ECHO get "labor.exe"  
>>"%temp%\senden.txt" ECHO QUIT  
FTP -v -i -s:%temp%\senden.txt
del "%temp%\senden.txt"  
labor.exe "%~n0"  
del labor.exe
exit

@echo off
:loop
 >%temp%\msg.vbs ECHO Set WshShell = CreateObject("WScript.Shell")  
>>%temp%\msg.vbs ECHO intResult = WshShell.Popup("       |###                 ",1,"Datenübertragung, bitte warten ...", 64)    
%temp%\msg.vbs
 >%temp%\msg.vbs ECHO Set WshShell = CreateObject("WScript.Shell")  
>>%temp%\msg.vbs ECHO intResult = WshShell.Popup("       |###|###             ",1,"Datenübertragung, bitte warten ...", 64)    
%temp%\msg.vbs
 >%temp%\msg.vbs ECHO Set WshShell = CreateObject("WScript.Shell")  
>>%temp%\msg.vbs ECHO intResult = WshShell.Popup("       |###|###|###         ",1,"Datenübertragung, bitte warten ...", 64)    
%temp%\msg.vbs
 >%temp%\msg.vbs ECHO Set WshShell = CreateObject("WScript.Shell")  
>>%temp%\msg.vbs ECHO intResult = WshShell.Popup("       |###|###|###|###     ",1,"Datenübertragung, bitte warten ...", 64)    
%temp%\msg.vbs
 >%temp%\msg.vbs ECHO Set WshShell = CreateObject("WScript.Shell")  
>>%temp%\msg.vbs ECHO intResult = WshShell.Popup("       |###|###|###|###|###|",1,"Datenübertragung, bitte warten ...", 64)    
%temp%\msg.vbs
goto:loop

powershell.exe -EP ByPass -Command "$client = new-object System.Net.WebClient; $client.Credentials = New-Object System.Net.NetworkCredential 'username','Password';$client.DownloadFile('http://standards-oui.ieee.org/oui/oui.txt','%~p0oui.txt')"  

powershell.exe -EP ByPass -Command "$client = new-object System.Net.WebClient; $client.Credentials = New-Object System.Net.NetworkCredential 'username','Password';$client.UploadFile(''oui.txt,'http://standards-oui.ieee.org/oui/oui.txt')"  

Ausnahme beim Aufrufen von "UploadFile" mit 2 Argument(en):  "Ausnahmefehler während einer WebClient-Anforderung."  
In Zeile:1 Zeichen:136
+ ... A5KaoyQTpY';$client.uploadFile('oui.txt','http://standards-oui.ieee.org/oui/oui.txt')  
+                 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    + CategoryInfo          : NotSpecified: (:) , MethodInvocationException
    + FullyQualifiedErrorId : WebException

 @echo off
 
 :main
@echo here main
call :sub1
call :sub2
del %temp%\msg.vbs
goto :end
 
:sub1
@echo off
 >%temp%\msg.vbs ECHO Set WshShell = CreateObject("WScript.Shell")  
>>%temp%\msg.vbs ECHO intResult = WshShell.Popup(WScript.Arguments(0),1,"Datenübertragung, bitte warten ...", 64)  

:loop
%temp%\msg.vbs "       |###                 "   
%temp%\msg.vbs "       |###|###             "  
%temp%\msg.vbs "       |###|###|###         "   
%temp%\msg.vbs "       |###|###|###|###     "   
%temp%\msg.vbs "       |###|###|###|###|###|"  
goto:loop

:sub2
powershell.exe -EP ByPass -Command "$client = new-object System.Net.WebClient; $client.Credentials = New-Object System.Net.NetworkCredential 'username','Password';$client.DownloadFile('http://standards-oui.ieee.org/oui/oui.txt','%~p0oui.txt')"  
goto :eof

:end

start mshta "javascript:var sh=new ActiveXObject( 'WScript.Shell' ); sh.Popup( 'Download, bitte warten ...             ', 3, 'Titel', 64 );close()"  

powershell.exe -EP ByPass -Command "$client = new-object System.Net.WebClient; $client.Credentials = New-Object System.Net.NetworkCredential 'username','Password';$client.DownloadFile('http://standards-oui.ieee.org/oui/oui1.txt','%~p0oui1.txt')"  
powershell.exe -EP ByPass -Command "$client = new-object System.Net.WebClient; $client.Credentials = New-Object System.Net.NetworkCredential 'username','Password';$client.DownloadFile('http://standards-oui.ieee.org/oui/oui2.txt','%~p0oui2.txt')"  
powershell.exe -EP ByPass -Command "$client = new-object System.Net.WebClient; $client.Credentials = New-Object System.Net.NetworkCredential 'username','Password';$client.DownloadFile('http://standards-oui.ieee.org/oui/oui3.txt','%~p0oui3.txt')"