PC per VBA code Herunterfahren und mit einem Benachrichtigungs-Feld

...
::Code davor
shutdown -s -t 30
::Vielleicht etwas mehr Zeit da oben...
:Abfrage
set /p shutdown="Wenn sie abbrechen wollen "Abb" eingeben!: "  
if /i "%shutdown%"=="Abb" shutdown -a  
if /i "%shutdown%"==""Abb"" shutdown -a  
goto Abfrage

@echo off & setlocal
set G=%temp%\GetAnswer.vbs
>%G% echo WScript.Echo WScript.CreateObject("WScript.Shell").PopUp("Möchten Sie den PC jetzt herunterfahren ?",60,"Herunterfahren?",vbYesNo+vbQuestion)  
for /f %%i in ('cscript //nologo %G%') do set "Antwort=%%i"  
if %Antwort% neq 7 echo shutdown -s -t 10

@echo off & setlocal
set G=%temp%\GetAnswer.vbs
>%G% echo WScript.Quit WScript.CreateObject("WScript.Shell").PopUp("Möchten Sie den PC jetzt herunterfahren ?",60,"Herunterfahren?",vbYesNo+vbQuestion)  
%G%
if %errorlevel% neq 7 echo shutdown -s -t 10

@echo off &setlocal

cmd /c exit 1
echo 2^^0                 %errorlevel%
echo.

cmd /c exit 2
echo 2^^1                 %errorlevel%
echo.
echo.

cmd /c exit 2147483646
echo 2^^31 -2    %errorlevel%
echo.

cmd /c exit 2147483647
echo 2^^31 -1    %errorlevel%
echo.

cmd /c exit 2147483648
echo 2^^31      %errorlevel%
echo.

cmd /c exit 2147483649
echo 2^^31 +1   %errorlevel%
echo.
echo.

cmd /c exit 4294967294
echo 2^^32 -2            %errorlevel%
echo.

cmd /c exit 4294967295
echo 2^^32 -1            %errorlevel%
pause>nul

@echo off & setlocal

shutdown -s -t 10

set G=%temp%\GetAnswer.vbs
>%G% echo WScript.Quit WScript.CreateObject("WScript.Shell").PopUp("Möchten Sie den PC jetzt herunterfahren ?",60,"Herunterfahren?",vbYesNo+vbQuestion)  
%G%
if %errorlevel% equ 7 shutdown -a
del %G%

endlocal

@echo off & setlocal

shutdown -s -t 10

set G=%temp%\GetAnswer.vbs
>%G% echo WScript.Quit WScript.CreateObject("WScript.Shell").PopUp("Moechten Sie das Herunterfahren des PCs abbrechen?",9,"Herunterfahren abbrechen?",vbYesNo+vbQuestion+vbSystemModal)  
%G%
if %errorlevel% equ 6 shutdown -a
del %G%

endlocal