Remote reboot
By nater

'Reboot a remote computer using alternate
'security credentials
Dim objLocator, objWMI, colOS, clsOS
Set objLocator=CreateObject("WbemScripting.SWbemLocator")
Set objWMI=objLocator.ConnectServer("pcname", _
"root\cimv2", "username", "password")
objWMI.Security_.ImpersonationLevel=3 'Impersonate
objWMI.Security_.Privileges.Add 18 'SeShutdown privilege
Set colOS=objWMI.InstancesOf _
("Win32_OperatingSystem where Primary=true")
For Each clsOS in colOS
clsOS.Reboot()
Next

Rating:


0/5 based on 0 votes. The median rating is 0.

Submitted: 11/19/10 (Edited 11/19/10)

Description: Reboots a windows computer remotely using alternate credentials.

Tags:

Views: 56 views. Averaging 0 views per day.
In the most recent 30 day period, there've been 0 views.

Similar Articles:
Remote reboot
Popular Cable Modem Vulnerable to Remote Reboot At
Popular Cable Modem Vulnerable to Remote Reboot At
iOS Flaw Lets Attacker Reboot All iOS Devices in W
iOS Flaw Lets Attacker Reboot All iOS Devices in W

Previous Article | Next Article