Windowsの再起動を行うスクリプト

ターミナルサーバとして利用しているサーバでスタートメニューから再起動が出来ない設定がされていたため作成したスクリプト。

ダブルクリックで再起動するかの確認ダイアログが表示され、再起動を行う簡単な物。

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

※文字コードはS-JISで保存して下さい。