Shutdown windows using script

Win32_OperatingSystem object lets you call shutdown, logoff and restart os functions using Win32ShutDown method.

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

Copyright and use this code

The source code on this page and other samples at https://www.motobit.com/tips/ are a free code, you can use it as you want: copy it, modify it, use it in your products, ...

If you use this code, please:

1. Leave the author note in the source.

2. Link this sample from you page.

<A
 Href="https://www.motobit.com/tips/detpg_wmi-windows-system-shutdown/"
 Title="WMI sample script to logoff /
	shutdown / restart windows on
	local or remote computer."
>Shutdown windows using script</A>

Shutdown windows using scriptMOTOBIT.COM

See also

Copyright and use this code