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(); 

}