[ウィンドウズを再起動する] ウィンドウズ2000/XPを再起動します。 【ソースコード】 [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