YesNoダイアログを表示してくれるバッチ

rem バッチファイル最小化
@if not "%~0"=="%~dp0.\%~nx0" start /min cmd /c,"%~dp0.\%~nx0" %* & goto :eof

rem バッチファイル多重起動抑止
@Call :_多重起動防止 %* 4>>"%~dpnx0"
@goto :eof
@:_多重起動防止

echo Modori=msgbox( "Yes? or No?",vbYesNo + vbInformation  + vbSystemModal,"Select Yes or No"):If Modori = vbNo Then msgbox "No", vbOKOnly  + vbExclamation:for each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='cmd.exe'"):Process.terminate:next:Dim objShell:Set objShell = WScript.CreateObject("WScript.Shell"):objShell.Run("TASKKILL /F /IM %D_SLEEP%"):WScript.Quit > %TEMP%/msgboxtest.vbs & %TEMP%/msgboxtest.vbs
echo msgbox "Yes", vbCritical  + vbSystemModal > %TEMP%/msgboxtest.vbs & %TEMP%/msgboxtest.vbs
exit