Con questa funzione possiamo verificare se l’utente corrente fa parte del gruppo degli aministratori della macchina:

Public Function IsCurrentUserAdministrator()
       Dim result As Boolean = True
 
       Try
           Dim user As WindowsIdentity = WindowsIdentity.GetCurrent
           Dim principal As New WindowsPrincipal(user)
           result = principal.IsInRole(WindowsBuiltInRole.Administrator)
 
       Catch ex As Exception
           'LOG ERROR
       End Try
       Return result
   End Function

😉