10 lines
280 B
Plaintext
10 lines
280 B
Plaintext
Dim wmi : Set wmi = GetObject( "winmgmts:{(RemoteShutdown)}!//./root/cimv2" )
|
|
Dim objset : set objset = wmi.instancesof("win32_operatingsystem")
|
|
|
|
Dim obj, os
|
|
for each obj in objset
|
|
obj.security_.privileges.add 18, true
|
|
set os = obj : exit for
|
|
|
|
next
|
|
os.win32shutdown 5 |