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版本 |