- A+
所属分类：vb.net
在开发软件的时候，经常会用到注册，但系统不一样，权限就不一样。以前xp系统基本上不会出出现用户权限的问题。下面收藏一个小例子，任何判断系统用户权限
1.在最上面导入名称空间 Imports System.Security.Principal
2.自定义函数封装，说明返回 true:表示是管理员，反之 false:就不是管理员了哦。不是管理员肯定没有权限了。
代码封装：
Public Shared Function Administrator() As Boolean
Dim current As WindowsIdentity = WindowsIdentity.GetCurrent()
Dim permissions As New WindowsPrincipal(current)
Return permissions.IsInRole(WindowsBuiltInRole.Administrator)
End Function
复制用法例子：
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Administrator() = True Then
MsgBox("你是大爷") '大爷管着小弟啊
Else
MsgBox("你是小弟") '不是管理员
End If
End Sub
复制要是没权限，软件有操作不了。提示用户启用权限用户了
