1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'WMI - Easy Shutdown
'If you have gotten tired of having to click several items just to
'shutdown your PC or laptop, save this script to a .vbs file and
'create an icon for it.   It will shutdown your machine with just
'one click.   No prompts, no waiting, just power down.  
'I've also included a few of the other constants just in case you need a slight variation.
Sub ForceReBoot()
   nLogOff                = 0     'Alternative actions to force reboot
   nReboot               = 2
   nForceLogOff         = 4
   nForceReboot        = 6
   nPowerDown         = 8
   nForcePowerDown = 12
   Set oOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
   For Each oOperatingSystem in oOS
      oOperatingSystem.Win32Shutdown(nForceReboot)
   Next
End sub' ForceReBoot
 
Sub SleepDelay ()
For i = 1 to 5
'  Wait 10 seconds (1000ms = 1 second)
   Wscript.Sleep 10*(1000)
Next 'i
 
End Sub 'SleepDelay