在VB2008程序中对当前操作系统用户身份进行判定

Dim CurrentlyUser As System.Security.Principal.WindowsIdentity = System.Security.Principal.WindowsIdentity.GetCurrent

Dim UserCheck As System.Security.Principal.WindowsPrincipal = New System.Security.Principal.WindowsPrincipal(CurrentlyUser)

If UserCheck.IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator) = False Then
'管理员身份
Else
'非管理员身份
End If