Windowsをシャットダウンする為のサンプルです。

'' shut.vbs
'' Windows XP シャットダウンスクリプト
''
'' 第一引数で指定した時間を経過後、
'' Windows を終了する。
'' shutdown.exeを使っているので、たぶんXP専用。

Dim WSHArguments ' 引数の取得用
Dim WshShell
Dim strTime ' 時間
Dim strProgram ' シャットダウンコマンド
Dim strTimerOption ' 時間セット用オプション
Dim strMessageOption ' メッセージ用オプション

''shutdown.exeを使う。
strProgram = """C:\WINDOWS\system32\SHUTDOWN.EXE"""

Set WSHArguments = WScript.Arguments
Set WshShell = Wscript.CreateObject("Wscript.Shell")

'' 引数で指定されれば、その時間（分）経過後に終了する。
If WSHArguments.Count = 1 Then
 strTime = WSHArguments.item(0)
Else
'' 引数で指定されない場合は、5分後に終了する。
 strTime = 5
End If

''時間をセット
strTimerOption =" -t " & strTime * 60

''メッセージをセット
strMessageOption=" -c """ & strTime & "分後シャットダウンします。 """

''shutdown.exeを実行
WshShell.Run(strProgram & " -s" & strTimerOption & strMessageOption)

Set WshShell = nothing
Set WSHArguments = nothing

Wscript.Quit

Pocket