Определить группу пользователя в системе - Visual Basic .NET

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

Доброе время суток. Дорогие, подскажите пожалуйста как узнать входил ли пользователь в группу Admin на локальном ПК?

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

textual
                            Листинг программы 
                        

                            Shared Function IsAdministrator() 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
                        