henji =  MsgBox("★★★休止しますか？★★★", vbOKCancel, "確認用")
If henji = vbCancel Then WScript.Quit

Set WinHost = CreateObject("WScript.Shell")
WinHost.Run("%windir%\System32\rundll32.exe powrprof.dll,SetSuspendState")