Windows 2000/XP でログオフ／シャットダウン／再起動アイコンを作るには？から引用

Windows 2000 リソースキットに付属の restart.vbs のオプション付きショートカットを作成することで、ログオフ／シャットダウン／再起動などのアイコンを作成することができます。
より簡易にアイコンを作りたい場合は、以下のスクリプトをダウンロードしてください。
restart.vbs と同様、WinMgmt を利用してログオフなどを行う単機能スクリプトです。(ダブルクリックするだけで使えます。)

上記のページから「poweroff.vbs」をダウンロードして中身を見るとこんな感じになっている。

Set objSystemSet =
 GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem")
For Each objSystem In objSystemSet
    objSystem.Win32Shutdown 8
Next

ローカル コンピュータのシャットダウンから引用

説明
ローカル コンピュータをシャットダウンします。
スクリプトコード

Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select
* from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    ObjOperatingSystem.Win32Shutdown(1)
Next

Hey, Scripting Guy!
指定した時間が経過するとメッセージ ボックスが自動的に閉じるようにする方法はありますか。から引用

ここで、[はい] ボタンと [いいえ] ボタンを持つメッセージ ボックスを表示し、ユーザーがいずれかのボタンをクリックしたか、10 秒の制限時間が経過したために自動的に閉じたかを報告する簡単なスクリプトを見てみましょう。

Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32

Set objShell = CreateObject("Wscript.Shell")

intReturn = objShell.Popup("Do you want to delete this file?",
_
    10, "Delete File", wshYesNoDialog + wshQuestionMark)

If intReturn = wshYes Then
    Wscript.Echo "You clicked the Yes button."
ElseIf intReturn = wshNo Then
    Wscript.Echo "You clicked the No button."
Else
    Wscript.Echo "The popup timed out."
End If

完成形だとおもう。

'参考
'http://www.microsoft.com/japan/technet/scriptcenter/scripts/desktop/state/dmstvb08.mspx
'http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/mar05/hey0314.mspx

Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32

Set objShell = CreateObject("Wscript.Shell")

intReturn = objShell.Popup("シャットダウン処理を実行します。キャンセルしますか？", _
    60, "シャットダウン処理開始", wshYesNoDialog + wshQuestionMark)

If intReturn = wshYes Then
    Wscript.Echo "シャットダウン処理をキャンセルしました"
ElseIf intReturn = wshNo Then
    Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select
* from Win32_OperatingSystem") 
    For Each objOperatingSystem in colOperatingSystems 
        ObjOperatingSystem.Win32Shutdown(1) 
    Next
    Wscript.Echo "シャットダウン処理を実行しています。"
Else
    Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select
* from Win32_OperatingSystem") 
    For Each objOperatingSystem in colOperatingSystems 
        ObjOperatingSystem.Win32Shutdown(1) 
    Next
    Wscript.Echo "タイムアウトです。シャットダウン処理を実行しています。"
End If

このファイルを「shutdown.vbs」とか名付けて、「C:\tools（適当なとこ）」に保存してタスクのスケジュールで呼び出してあげればよいとおもう。