[VisualBasic] Problem mit einem programm das in der CMD Eingaben machen soll

Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'Api
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, BufferLength As Any, PreviousState As Any, ReturnLength As Any) As Long
 
Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long

Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long

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

Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long

Private Const SE_SHUTDOWN_NAME As String = "SeShutdownPrivilege"
Private Const TOKEN_ADJUST_PRIVILEGES As Long = &H20
Private Const SE_PRIVILEGE_ENABLED As Long = &H2

Private Type LUID
 lowpart As Long
 highpart As Long
End Type

Private Type LUID_AND_ATTRIBUTES
 pLuid As LUID
 Attributes As Long
End Type

Private Type TOKEN_PRIVILEGES
 PrivilegeCount As Long
 Privileges As LUID_AND_ATTRIBUTES
End Type


'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'Funktionen
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+++++++++++++++++++++++++++++++++++++++++++++
'Machine_Shutdown
'+++++++++++++++++++++++++++++++++++++++++++++
Public Sub Machine_Shutdown(ByRef Method As Long)
 Dim a As Long
 Dim Temp1 As LUID
 Dim Temp2 As TOKEN_PRIVILEGES
 Dim Handle As Long

 Handle = OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, a)
 If Handle = 0 Then
 Exit Sub
 End If
 
 Handle = LookupPrivilegeValue(vbNullString, SE_SHUTDOWN_NAME, Temp1)
 If Handle = 0 Then
 Exit Sub
 End If
 
 Temp2.PrivilegeCount = 1
 Temp2.Privileges.Attributes = SE_PRIVILEGE_ENABLED
 Temp2.Privileges.pLuid.highpart = Temp1.highpart
 Temp2.Privileges.pLuid.lowpart = Temp1.lowpart

 Handle = AdjustTokenPrivileges(a, 0, Temp2, ByVal CLng(0), ByVal CLng(0), ByVal CLng(0))
 If Handle = 0 Then
 Exit Sub
 End If
 
 Handle = ExitWindowsEx(Method, 0&)
End Sub