[ウィンドウズをシャットダウンする]

ウィンドウズ２０００／ＸＰをシャットダウンします。

【ソースコード】

[tips0184.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 8
Next