|
|
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
|
See also for 'Shutdown windows using script' article 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.
or
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>
|