Проверка прав администратора пользователя - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Столкнулся с необходимостью проверки прав администратора в приложении. Оказалось, что в ОС выше Vista права администратора приложению назначаются при запуске через RunAs, а вначале оно работает с обычными правами пользователя. На просторах интернета нашел пример, но автор пишет, что он не уверен в правильности его работы! По мне так работает, не могли бы Вы его проверить, может у Вас есть 100% работающие коды.
Смущают английские комментарии.

Есть ли необходимость в ручной очистке, если я правильно понял это так работает.

доработал код

Решение задачи: «Проверка прав администратора пользователя»

textual
Листинг программы
Public Function IsAdmin() As Boolean
    Dim identity As WindowsIdentity = WindowsIdentity.GetCurrent()
    If identity Is Nothing Then Return False
    Dim principal As New WindowsPrincipal(identity)
    Return principal.IsInRole(WindowsBuiltInRole.Administrator)
End Function

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы