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

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