[ウィンドウズをログオフする]

ウィンドウズ２０００／ＸＰでログオフします。

【ソースコード】

[tips0182.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 0
Next