Как узнать уровень защиты процесса не используя GetProcessInformation (эта функция минимум для Windows 8)?

Private Declare Function RmStartSession Lib "Rstrtmgr.dll" (ByRef pSessionHandle As Long, ByVal dwSessionFlags As Long, ByVal strSessionKey As Long) As Long
Private Declare Function RmRegisterResources Lib "Rstrtmgr.dll" (ByVal pSessionHandle As Long, ByVal nFiles As Long, ByVal rgsFilenames As Any, ByVal nApplications As Long, ByRef rgApplications As Any, ByVal nServices As Long, ByVal rgsServiceNames As Any) As Long
Private Declare Function RmGetList Lib "Rstrtmgr.dll" (ByVal pSessionHandle As Long, ByRef pnProcInfoNeeded As Long, ByRef pnProcInfo As Long, ByRef rgAffectedApps As Any, ByRef lpdwRebootReasons As Long) As Long
Private Declare Function RmEndSession Lib "Rstrtmgr.dll" (ByVal pSessionHandle As Long) As Long
 
Private Type RM_UNIQUE_PROCESS
    dwProcessId As Long
    ProcessStartTime As FILETIME
End Type
 
Private Type RM_PROCESS_INFO
    Process As RM_UNIQUE_PROCESS
    strAppName(511) As Byte ' Резервируем 512 байт для уникодной строки буфера 256 символов
    strServiceShortName(127) As Byte ' Резервируем 128 байт для уникодной строки буфера 64 символа
    ApplicationType As Long ' На каждую следующею переменную резервируется по 4 байта
    AppStatus As Long
    TSSessionId As Long
    bRestartable As Long ' Boolean
End Type
 
' Узнать системный ли это процесс с помощью Restart Manager API (работает как с админ прававми, так и без)
Public Function IsSystemProcessRstrtmgr(PID As Long) As Boolean
    Dim SessionHandle As Long
    Dim key As String
    Dim rm As RM_UNIQUE_PROCESS
    Dim ProcInfoNeeded As Long
    Dim ProcInfoNeeded2 As Long
    Dim RebootReasons As Long
    Dim ProcessInfo() As RM_PROCESS_INFO
    Dim ret As Long
    Dim i As Long
    
    If PID = GetCurrentProcessId Then Exit Function
    If PID = 4 Then
        IsSystemProcessRstrtmgr = True
        Exit Function
    End If
    
    rm.dwProcessId = PID ' Установить pid
    key = Space$(256)
    
    If RmStartSession(SessionHandle, 0, StrPtr(key)) = ERROR_SUCCESS Then
        key = Trim$(key)
        
        If RmRegisterResources(SessionHandle, ByVal 0&, ByVal 0&, 1, rm, ByVal 0&, ByVal 0&) = ERROR_SUCCESS Then
            ReDim ProcessInfo(0)
            ret = RmGetList(SessionHandle, ProcInfoNeeded, 1, ProcessInfo(0), RebootReasons)
            
            If ret = ERROR_SUCCESS Then
                If ProcessInfo(0).TSSessionId <> -1 Then ' Если процесс существует
                    If RebootReasons <> 2 Then ' <> RmRebootReasonSessionMismatch
                        If ProcessInfo(0).ApplicationType = 1000 Or ProcessInfo(0).ApplicationType = 3 Then ' RmCritical OR RmService
                            IsSystemProcessRstrtmgr = True
                        End If
                    Else ' A system restart is needed because one or more processes to be shut down are critical processes
                        IsSystemProcessRstrtmgr = True
                    End If
                End If
            ElseIf ret = ERROR_MORE_DATA Then
                If RebootReasons = 2 Or RebootReasons = 4 Or RebootReasons = 8 Then
                    ' RmRebootReasonSessionMismatch OR RmRebootReasonCriticalProcess OR RmRebootReasonCriticalService
                    IsSystemProcessRstrtmgr = True
                Else
                    ReDim Preserve ProcessInfo(ProcInfoNeeded - 1)
                    
                    If RmGetList(SessionHandle, ProcInfoNeeded2, ProcInfoNeeded, ProcessInfo(0), RebootReasons) = ERROR_SUCCESS Then
                        For i = 0 To UBound(ProcessInfo) ' Перебрать список, вероятно одинаковых, процессов (скорее всего svchost.exe)
                            If ProcessInfo(i).Process.dwProcessId = PID Then ' Найден интересуемый нами процесс
                                If ProcessInfo(i).TSSessionId <> -1 Then ' Если процесс существует
                                    If RebootReasons <> 2 Then ' <> RmRebootReasonSessionMismatch
                                        If ProcessInfo(i).ApplicationType = 1000 Or ProcessInfo(i).ApplicationType = 3 Then ' RmCritical OR RmService
                                            IsSystemProcessRstrtmgr = True
                                        End If
                                    Else ' A system restart is needed because one or more processes to be shut down are critical processes
                                        IsSystemProcessRstrtmgr = True
                                    End If
                                End If
                                
                                Exit For
                            End If
                        Next
                    End If
                End If
            End If
        End If
        
        RmEndSession SessionHandle
    End If
End Function
 
' Получить пакет информации о том, системные это процессы или нет, с помощью Restart Manager API (работает как с админ прававми, так и без)
Public Function IsSystemProcessesRstrtmgr(pids() As Long) As Boolean()
    Dim rm() As RM_UNIQUE_PROCESS
    Dim ProcessInfo() As RM_PROCESS_INFO
    Dim QueryIsSystems() As Boolean
    Dim IsSysProc As Boolean
    Dim SessionHandle As Long
    Dim key As String
    Dim ProcInfoNeeded As Long
    Dim ProcInfoNeeded2 As Long
    Dim RebootReasons As Long
    Dim getPID As Long
    Dim ret As Long
    Dim cnt As Long
    Dim count As Long
    Dim i As Long
    Dim i2 As Long
    Dim AdminRights As Boolean
    
    ' Проверить инициализирован ли массив
    If SafeArrayGetDim(pids) = 0 Then Exit Function
    
    cnt = UBound(pids)
    ReDim Preserve rm(cnt)
    
    ' Установить pid'ы
    For i = 0 To UBound(pids)
        rm(i).dwProcessId = pids(i)
    Next
    key = Space$(256)
    
    If RmStartSession(SessionHandle, 0, StrPtr(key)) = ERROR_SUCCESS Then
        key = Trim$(key)
        
        If RmRegisterResources(SessionHandle, ByVal 0&, ByVal 0&, cnt + 1, rm(0), ByVal 0&, ByVal 0&) = ERROR_SUCCESS Then
            ReDim ProcessInfo(cnt)
            ret = RmGetList(SessionHandle, ProcInfoNeeded, cnt + 1, ProcessInfo(0), RebootReasons)
            
            If ret = ERROR_MORE_DATA Then ' Буфер слишком мал
                ReDim Preserve ProcessInfo(ProcInfoNeeded - 1) ' Увеличиваем буфер
                ret = RmGetList(SessionHandle, ProcInfoNeeded2, ProcInfoNeeded, ProcessInfo(0), RebootReasons) ' Повторяем попытку
            End If
            If ret = ERROR_SUCCESS Then ' Если нету ошибок
                getPID = GetCurrentProcessId
                AdminRights = IsPrivilegeProcess ' Единожды
                
                For i = 0 To UBound(pids) ' Прежде всего надо перебирать свой список pids
                    If pids(i) <> 4 And pids(i) <> 0 Then
                        For i2 = 0 To UBound(ProcessInfo) ' Потом нужно перебрать список процессов Restart Manager
                            If ProcessInfo(i2).Process.dwProcessId = pids(i) Then ' Найден интересуемый нами процесс
                                ' Является ли процесс системным
                                IsSysProc = False
                                If ProcessInfo(i2).Process.dwProcessId <> getPID Then ' Если это не мой процесс
                                    If ProcessInfo(i2).TSSessionId <> -1 Then ' Если процесс существует
                                        If ProcessInfo(i2).ApplicationType = 1000 Or ProcessInfo(i2).ApplicationType = 3 Then ' RmCritical OR RmService
                                            IsSysProc = True
                                        End If
                                    End If
                                End If
                                
                                If AdminRights = True Then
                                    ' Перепроверить является ли процесс системным, в случае если установлены админ права
                                    If IsSysProc = False Then
                                        If IsSystemProcessRstrtmgr(pids(i)) = True Then
                                            IsSysProc = True ' Процесс всё-таки системный
                                        End If
                                    End If
                                End If
                                
                                ReDim Preserve QueryIsSystems(count)
                                QueryIsSystems(count) = IsSysProc
                                count = count + 1
                                
                                Exit For ' Для ускорения выйти из второго цикла Restart Manager
                            End If
                        Next
                    Else
                        ReDim Preserve QueryIsSystems(count)
                        QueryIsSystems(count) = True
                        count = count + 1
                    End If
                Next
            End If
        End If
        
        If count > 0 Then
            IsSystemProcessesRstrtmgr = QueryIsSystems()
        End If
        RmEndSession SessionHandle
    End If
End Function

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (psa() As Any) 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 LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As Any, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPriv As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function GetTokenInformation Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal TokenInformationClass As Long, ByRef TokenInformation As Any, ByVal TokenInformationLength As Long, ByRef ReturnLength As Long) As Long
Private Declare Function LookupPrivilegeName Lib "advapi32.dll" Alias "LookupPrivilegeNameW" (ByVal lpSystemName As Long, ByRef lpLuid As LUID, ByVal lpName As Long, ByRef cchName As Long) As Long
Private Declare Function SysReAllocStringLen Lib "oleaut32.dll" (ByVal pBSTR As Long, Optional ByVal pszStrPtr As Long, Optional ByVal Length As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
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
 
Public Function IsPrivilegeProcess(Optional ProcessId As Long, Optional seName As String = "SeDebugPrivilege") As Boolean
    Dim hProcess As Long
    Dim hToken As Long, i As Long, Size As Long, sPrivName As String, LA() As LUID_AND_ATTRIBUTES
    
    If ProcessId > 0 Then
        hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, ProcessId)
    Else
        hProcess = GetCurrentProcess
    End If
    
    If hProcess Then
        If OpenProcessToken(hProcess, TOKEN_QUERY, hToken) Then
            GetTokenInformation hToken, TokenPrivileges, ByVal 0&, 0&, Size
            
            If Size Then
                ReDim LA(0& To (Size \ 4& - 1&) \ 3&) As LUID_AND_ATTRIBUTES
                
                If GetTokenInformation(hToken, TokenPrivileges, LA(0&).Attributes, Size, Size) Then
                    For i = 1& To LA(0&).Attributes
                        Size = 0&
                        LookupPrivilegeName 0&, LA(i).pLuid, 0&, Size
                        
                        If Size Then
                            SysReAllocStringLen VarPtr(sPrivName), , Size - 1&
                            
                            If LookupPrivilegeName(0&, LA(i).pLuid, StrPtr(sPrivName), Size) Then
                                If sPrivName = seName Then
                                    IsPrivilegeProcess = (LA(i).Attributes And (SE_PRIVILEGE_ENABLED_BY_DEFAULT Or SE_PRIVILEGE_ENABLED)) <> 0&
                                    Exit For
                                End If
                            End If
                        End If
                    Next
                End If
            End If
            
            CloseHandle hToken
        End If
        
        If ProcessId > 0 Then CloseHandle hProcess
    End If
End Function

If ProcessInfo(i).ApplicationType = 3 Then ' RmService