I don't think this works on NT, but you can combine these :
Code:
Dim Retval as Long
Retval = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)