Imports System

Imports System.Threading

Imports System.Security

Imports System.Security.Permissions

Imports System.Security.Principal

Module OnlyAdmin

       Sub Main()

              '将用户的角色和标识跟windows关联起来。             AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy.WindowsPrincipal)

              Dim user As WindowsPrincipal = CType(Thread.CurrentPrincipal, WindowsPrincipal)

              Console.WriteLine("Hello {0}", user.Identity.Name)

              If user.IsInRole(WindowsBuiltInRole.Administrator) Then

                     Console.WriteLine("You can execute this program")

              Else

                     Console.WriteLine("Sorry you cannot execute this program")

              End If

       End Sub

End Module

VB.NET版本

参考：ms-help://MS.VSCC/MS.MSDNVS.2052/cpref/html/frlrfsystemappdomainclasstopic.htm