Wie bekommt man einen Rückgabewert von einer Batchdatei in das VBScript - 2

Hallo leider ist der Beitrag der meine Lösung zu 95% enthält bereits als gelöst makiert.

Deshalb eröffne ich einen neuen Beitrag um meine Frage zu ergänzen.

Thread: Wie bekommt man einen Rückgabewert von einer Batchdatei in das VBScript

Aktuelle Situation:
run.vbs
map.bat -1
map.bat - 2

So nun mein Problem. Ich brache in einem VBS Script den Rückgabewert einer Batchdatei.

Leider gibt dieser nur den errorlevel des letzten Befehles zurück. (map.bat -1 geht _ map.bat -2 geht nicht)

Gibt es irgendeine Möglichkeit die Errorlevel hochzuzählen?

Evtl. ein Ansatz:
nach jedem Befehl if not %errorlevel% == 0 set /a error = %error% + 1

Habt ihr eine Lösung für mein Problem?

set /a error=0
...
if errorlevel 1 set /a error+=1
...
exit /b %error%

set error=0
...
if errorlevel 1 set error=1
...
exit /b %error%

set /a error=0
> ...
> if errorlevel 1 set /a error+=1
> ...
> exit /b %error%
> 

set error=0
> ...
> if errorlevel 1 set error=1
> ...
> exit /b %error%
> 

	Set Runobject = WScript.CreateObject("WScript.Shell")  
	Runkey = Runobject.Run ("map.bat" ,1, true)  
	If Runkey = 0 Then
		Wscript.Echo Runkey & " OK "  
	Else
		Wscript.Echo Runkey & " ERROR"  
	End If

exit /B 2