Public Function FktShutdown(intQuit As Integer)
 
' 4 = logoff
' 5 = shutdown
' 6 = reboot
' 12 = power off
 
Dim oSys, oSysSet
Set oSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery( _
  "select * from Win32_OperatingSystem where Primary=true")
For Each oSys In oSysSet
oSys.Win32ShutDown (intQuit)
Next
 
End Function