[windows] Shutdown Windows Using Script

Sub ShutDown()
  Dim Connection, WQL, SystemClass, System

  'Get connection To local wmi
  Set Connection = GetObject("winmgmts:root\cimv2")

  'Get Win32_OperatingSystem objects - only one object In the collection
  WQL = "Select Name From Win32_OperatingSystem"
  Set SystemClass = Connection.ExecQuery(WQL)

  'Get one system object
  'I think there is no way To get the object using URL?
  For Each System In SystemClass
    System.Win32ShutDown (2)
  Next
End Sub 

Value	Meaning
0	Log Off
0 + 4	Forced Log Off
1	Shutdown
1 + 4	Forced Shutdown
2	Reboot
2 + 4	Forced Reboot
8	Power Off
8 + 4	Forced Power Off

Simple extension to shutdown remote computer.

Sub ShutDownEx(Server, User, Password)
  Dim Connection, WQL, SystemClass, System

  'Get connection To remote wmi
  Dim Locator
  Set Locator = CreateObject("WbemScripting.SWbemLocator")
  Set Connection = Locator.ConnectServer(Server, "root\cimv2", User, Password)

  'Get Win32_OperatingSystem objects - only one object In the collection
  WQL = "Select Name From Win32_OperatingSystem"
  Set SystemClass = Connection.ExecQuery(WQL)

  'Get one system object
  'I think there is no way To get the object using URL?
  For Each System In SystemClass
    System.Win32ShutDown (2)
  Next
End Sub

http://www.motobit.com/tips/detpg_wmi-windows-system-shutdown/