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

Set WinHost = CreateObject("WScript.Shell")
WinHost.Run("rundll32.exe Shell32.dll,SHExitWindowsEx 2")