1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
Imports System.Security.Principal
Public Function IsInRole() As Boolean
Return (New WindowsPrincipal(WindowsIdentity.GetCurrent()).IsInRole(WindowsBuiltInRole.Administrator))
End Function
'Aufruf
If IsInRole() = True Then
....
End If
|