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

Set WinHost = CreateObject("WScript.Shell")
WinHost.Run "cmd /c shutdown -s -t 0", 3, True