MsgBox_HTA.bat

@echo off
Title MsgBox with mshta
Set "MsgBoxLog=%~dp0MsgBoxLog.txt"
Type nul>"%MsgBoxLog%"

set icons=vbInformation vbExclamation vbCritical vbQuestion ^
^vbOKCancel+vbInformation vbYesNo+vbExclamation vbYesNo+vbCritical vbYesNo+vbQuestion ^
^vbOKCancel+vbInformation vbOKCancel+vbExclamation vbOKCancel+vbCritical vbOKCancel+vbQuestion ^
^vbRetryCancel+vbInformation vbRetryCancel+vbExclamation vbRetryCancel+vbCritical vbRetryCancel+vbQuestion ^
^vbYesNoCancel+vbInformation vbYesNoCancel+vbExclamation vbYesNoCancel+vbCritical vbYesNoCancel+vbQuestion ^
^vbAbortRetryIgnore+vbInformation vbAbortRetryIgnore+vbExclamation vbAbortRetryIgnore+vbCritical vbAbortRetryIgnore+vbQuestion

@for %%a in (%icons%) do echo mshta vbscript:msgbox("message %%a",%%a+vbSystemModal,"title")\close()>>"%MsgBoxLog%"
If exist "%MsgBoxLog%" Start "" /MAX "%MsgBoxLog%"
Timeout /T 1 /NoBreak>Nul
@for %%a in (%icons%) do Start /w mshta vbscript:msgbox("message %%a",%%a+vbSystemModal,"%%a")\close()