[ウィンドウズを再起動する]

ウィンドウズ２０００／ＸＰを再起動します。

【ソースコード】

[tips0183.vbs]
Option Explicit

Dim objShut     ' シャットダウンオブジェクト
Dim objOS       ' オペレーティングシステムオブジェクト
Dim objSystem   ' オペレーティングシステムオブジェクト

Set objShut = GetObject("winmgmts:{impersonationLevel = impersonate, (Shutdown)}")
Set objOS = objShut.InstancesOf("Win32_OperatingSystem")

For Each objSystem In objOS
    objSystem.Win32Shutdown 2
Next