[windows] Shutdown Windows Automatically

Following are the steps to create the scheduled task to shutdown the windows in specified time:

1.	Click Start, and then click Control Panel.
2.	Click Performance and Maintenance, and then click Scheduled Tasks.
3.	Double-click Add Scheduled Task. The Scheduled Task Wizard starts.
4.	Click Next.
5.	Under Click the program you want Windows to run, click Browse.
6.	In the Select Program to Schedule dialog box, locate the %SystemRoot%\System32 folder, locate and click the Shutdown.exe file, and then click Open.
7.	Under Perform this task, specify a name for the task and how frequently you want this task to run, and then click Next.
8.	Under Select the time and day you want this task to start, specify a start time and date for the task, and then click Next.
9.	Type the user name and password to run this task under, and then click Next.
10.	Click to select the Open advanced properties for this task when I click Finish check box, and then click Finish.
11.	Click the Task tab.
12.	In the Run box, specify any additional parameters that you want to use with Shutdown.exe.
13.	Click OK

[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/