Batch MassageBox variieren

@ECHO OFF & SETLOCAL
 >%temp%\msgbox.vbs ECHO x = WScript.CreateObject("WScript.Shell").PopUp("Hier ein Beipsieltext" ^& vbCrLf ^& _  
>>%temp%\msgbox.vbs ECHO    "Weiterer Beispieltext, 2. Zeile.",  _  
>>%temp%\msgbox.vbs ECHO    5, _
>>%temp%\msgbox.vbs ECHO    "Überschrift", _  
>>%temp%\msgbox.vbs ECHO    0 + 64)
>>%temp%\msgbox.vbs ECHO WScript.Quit(x)
:: vbs aufrufen:
cls
%temp%\msgbox.vbs
:: Errorlevel für spätere Verarbeitung in Variable sichern:
SET /A "Returncode=%errorlevel%"  
:: vbs löschen:
DEL "%temp%\msgbox.vbs"  
:: mach irgendwas mit der Variable:
IF %Returncode%==-1 GOTO :Zeitablauf
IF %Returncode%==1 GOTO :EnterOderGeschlossen

@ECHO OFF & SETLOCAL
 >%temp%\msgbox.vbs ECHO WScript.Echo InputBox("Hier ein Beipsieltext" ^& vbCrLf ^& _  
>>%temp%\msgbox.vbs ECHO    "Weiterer Beispieltext, 2. Zeile.",  _  
>>%temp%\msgbox.vbs ECHO    "Überschrift", _  
>>%temp%\msgbox.vbs ECHO    "Defaultwert")  
cls
set "Eingabe="  
for /f "delims=" %%i in ('cscript //nologo %temp%\msgbox.vbs') do set "Eingabe=%%i"  
DEL "%temp%\msgbox.vbs"  
if defined Eingabe echo Eingabe: %Eingabe%

@set @x=0 /* &rem Diese Zeile ist für beide Sprachen valider Code

@echo off
set lf=^


set ^"\n=^^^%lf%%lf%^%lf%%lf%^^"&rem Wir basteln ein LineFeed  

:: Popup
set JS_Text=Hallo%\n%Welt!
set JS_Title=Das ist ein "Test"  
set /a JS_Style=1
set /a JS_Timeout=5
cscript //nologo //e:jscript "%~f0" out  
echo Returncode: %errorlevel%

echo ---------------------------------------

:: Input
set JS_Text=Wie heisst du?%\n%(Vorname genuegt)
set JS_Title=Das ist ein "Test"  
for /f "delims=" %%i in ('cscript //nologo //e:jscript "%~f0" in') do set "str=%%i"  
echo(%str%

pause

goto :eof 
::::::::::::::::::::::::::::::::::::::::::::::::::::

hier startet das JS */ 
var oWSH = new ActiveXObject("WScript.Shell");  
var text = oWSH.ExpandEnvironmentStrings("%JS_Text%");  
var title = oWSH.ExpandEnvironmentStrings("%JS_Title%");  
var style = oWSH.ExpandEnvironmentStrings("%JS_Style%");  
var timeout = oWSH.ExpandEnvironmentStrings("%JS_Timeout%");  
switch(WScript.Arguments(0))
{
case "out":  
  WScript.Quit(oWSH.Popup(text, timeout, title, style));
  break;
case "in":  
  var oSC = new ActiveXObject("ScriptControl");  
  oSC.Language="VBScript";  
  var str = 'InputBox("' + (text.replace(/"/g,'"&Chr(34)&"')).replace(/\n/g, '"&Chr(10)&"') + '", "' + title.replace(/"/g,'"&Chr(34)&"') + '")';  
  WScript.Echo(oSC.eval(str));
  WScript.Quit();
  break;
default:
  WScript.Quit();
}