Codessentials

Sometimes you need to check if your application is started with administrator rights in order to perform some restricted tasks.

You can check this as follows:

Imports System.Security.Principal

Module Security
    Public Function IsAdmin() As Boolean
        Dim id As WindowsIdentity = WindowsIdentity.GetCurrent()
        Dim p As WindowsPrincipal = New WindowsPrincipal(id)
        Return p.IsInRole(WindowsBuiltInRole.Administrator)
    End Function
End Module