'Authorization Constants
  ' Privilege Constants
  Public Const SE_SHUTDOWN_NAME = "SeShutdownPrivilege"

  'Handle and Object Functions
  Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As IntPtr) As Boolean

  'System Shutdown Functions

  'uFlags The shutdown type.
  Public Const EWX_LOGOFF = 0
  Public Const EWX_SHUTDOWN = 1
  Public Const EWX_REBOOT = 2
  Public Const EWX_FORCE = 4

  Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Integer, ByVal dwReason As Integer) As Boolean

  Public Function IsWinNT_Net() As Boolean
    'Detect if the program is running under Windows NT
    Return (Environment.OSVersion.Platform = PlatformID.Win32NT)
  End Function

  'set the shut down privilege for the current application
  Public Function EnableShutDown() As Integer
    Dim dwRes As Integer
    Dim hToken As IntPtr
    Dim bRtnBool As Boolean

    ' Open a handle to the access token for the calling process.
    bRtnBool = OpenProcessToken(Process.GetCurrentProcess().Handle, _
                            TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, _
                            hToken)
    If bRtnBool = False Then
      Debug.Print("OpenProcessToken Error " & Err.LastDllError)
      dwRes = Err.LastDllError
      GoTo Cleanup
    End If

    'Enable the SE_SHUTDOWN_NAME privilege for the current application.
    dwRes = SetPrivilege(hToken, SE_SHUTDOWN_NAME, True)
    If dwRes <> 0 Then
      Debug.Print("SetPrivilege Error " & dwRes)
      GoTo Cleanup
    End If

Cleanup:
    If hToken <> IntPtr.Zero Then CloseHandle(hToken)

    EnableShutDown = dwRes
  End Function

  Public Sub RebootNT(ByVal Force As Boolean)
    ' Restart NT
    Dim Flags As Integer = EWX_REBOOT
    If Force Then Flags = Flags Or EWX_FORCE
    If IsWinNT_Net() Then
      If EnableShutDown() = 0 Then ExitWindowsEx(Flags, 0)
    End If
  End Sub

  Public Sub ShutDownNT(ByVal Force As Boolean)
    ' Shut Down NT
    Dim Flags As Integer = EWX_SHUTDOWN
    If Force Then Flags = Flags Or EWX_FORCE
    If IsWinNT_Net() Then
      If EnableShutDown() = 0 Then ExitWindowsEx(Flags, 0)
    End If
  End Sub

  Public Sub LogOffNT(Force As Boolean)
    ' Log off the current user
    Dim Flags As Integer = EWX_LOGOFF
    If Force Then Flags = Flags Or EWX_FORCE
    If IsWinNT_Net() Then ExitWindowsEx(Flags, 0)
  End Sub