LogonUser в ОС Windows 8

Question

мы используем этот код VB.NET внутри класса, так как много лет для тестирования, если данный пользователь является администратором (укорочен для ясности, проверка ошибок удалена):

Private Declare Auto Function LogonUser Lib "advapi32.dll" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As UInteger, ByVal dwLogonProvider As UInteger, ByRef phToken As IntPtr) As Boolean 

Private token As IntPtr 
Private identity As WindowsIdentity 
Private principal As WindowsPrincipal 

LogonUser(username, domain, password, LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, token) 
identity = New WindowsIdentity(token) 
principal = New WindowsPrincipal(identity) 

Return principal.IsInRole(ApplicationServices.BuiltInRole.Administrator) 

Этот код возвращает True для учетных данных администратора. Этот код работает в Windows XP, Vista и Windows 7. Мы знаем о том, что этот код несовместим с включенным UAC. Поэтому, чтобы этот код работал в Windows Vista и 7, мы отключили UAC. Однако в Windows 8 даже при выключении UAC учетные данные администратора по-прежнему распознаются как ограниченный токен (часть BuiltInRole.User). Таким образом, мы не можем выдавать себя за администратора «identity.Impersonate».

Любые идеи, почему этот код был поврежден в Windows 8?

Спасибо Alex

Answer 1

Я не знаю, почему вы хотите, чтобы выдавать себя за пользователя, чтобы проверить членство в группе. Я думаю, что следующий будет работать с UAC включен или выключен:

Public Shared Function IsLocalAdmin(ByVal userName As String) As Boolean 
    Dim MyIdentity = New System.Security.Principal.WindowsIdentity(userName) 
    Dim MyPrincipal = New System.Security.Principal.WindowsPrincipal(MyIdentity) 
    Return MyPrincipal.IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator) 
End Function 

Это не должно быть предварительным условием вашей программы, чтобы включить UAC выключить.