-
Code's Tags
-
Your Codes
-
Reffers
-
Linked Codes
|
Code:
Short link for Twitter:
HTML:
HTML view:
Copy Source | Copy HTML- option explicit
-
- dim osObj, osColl
- const nLogOff= 0
- const nReboot=2
- const nForceLogOff=4
- const nForceReboot=6
- const nPowerDown=8
- const nForcePowerDown=12
-
- Set osColl = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
-
- For Each osObj in osColl
- osObj.Win32Shutdown(nForcePowerDown)
- Next
|