VBScript で再起動する

WSH 
Option Explicit 
On Error Resume Next
Dim objWshShell     ' WshShell オブジェクト 
Dim strCmdLine      ' 実行するコマンド 
Dim varMsg
'確認画面 
varMsg = MsgBox ("再起動しますか？", vbYesNo, "確認") 
If varMsg <> vbYes Then 
    WScript.Quit    'スクリプト終了 
End If
'再起動 
Set objWshShell = WScript.CreateObject("WScript.Shell") 
strCmdLine = "shutdown /r /t 0"    'コマンド 
If Err.Number = 0 Then 
    objWshShell.Exec(strCmdLine)    '実行 
    If Err.Number <> 0 Then 
        WScript.Echo "エラー: " & Err.Description 
    End If 
Else 
    WScript.Echo "エラー: " & Err.Description 
End If

ネタ元