| | Top messages |
| 4.5.2002 9:16:43 | |
| 22.3.2003 19:18:41 | |
| 12.6.2003 9:14:29 | |
Shutdown windows using script | | Areas>WMI | |
| |
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: |
If you like this page, please include next link on your pages:
<A
Href="http://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>
|
|