ScriptCentre/wsh/リブート - progtips

Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate,(ShutDown)}!\\.\root\cimv2")
 
Sub RebootComputer
        For Each computer in wmi.ExecQuery("Select * from Win32_OperatingSystem")
                computer.Reboot
        Next 
End Sub

再起動するには権限が必要なので、wmiオブジェクトを取得するときのやり方が少しだけ違う。