基于角色的安全性（一）
Montaque
在财务或商务应用程序中经常使用角色来强制策略。例如，应用程序可能根据提出请求的用户是否是指定角色的成员，对正在处理的事务的大小加以限制。职员有权处理的事务可能小于指定的阈值，主管拥有的权限可能比职员的高，而副总裁的权限可能还更高（或根本不受限制）。当应用程序需要多个批准完成某项操作时，也可以使用基于角色的安全性。例如一个采购系统，在该系统中，任何雇员均可生成采购请求，但只有采购代理人可以将此请求转换成可发送给供应商的采购订单。（MSDN原话）
有时候，我们需要判断执行当前Sub的用户要求有一定的权限，最基本的比如说必须是Windows中的管理员级别的帐户，这时候我们就要判断执行当前线程用户的角色问题。我们知道多个应用程序域可以在一个进程中运行；但是，在应用程序域和线程之间没有一对一的关联。多个线程可以属于一个应用程序域，尽管给定的线程并不局限于一个应用程序域，但在任何给定时间，线程都在一个应用程序域中执行。
于是我们就要从线程入手，我执行当前线程的用户信息加到执行环境中，在.NET中有一个类，AppDomain。下面给出一个简单的例子：
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
