Why deosn"t this code work?

I am using the following code in a procedure:

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

'If you wanted to forcefully reboot the computer use the following code:

't& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)


LOGOFF works great but EWX_FORCE Or EWX_REBOOT doesn't
?????????????????????????????????

Thanks
Grandpa

Are you using NT/2000? You need to adjust the security token to shutdown. See http://www.allapi.net/ for an example.

http://www.allapi.net/apilist/exampl...dowsX%20-%20NT

Thanx Josh