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