Option Explicit

Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long,ByRef lpdwReserved As Long) As Long

Private Sub Form_Load()
'IsNTAdmin() returnerar 0 om inloggad användare inte är medlem
' i administratörs gruppen

Dim lngRetVal As Long
lngRetVal = IsNTAdmin(ByVal 0, ByVal 0)
If lngRetVal <> 0 Then
MsgBox "Du är medlem i Administratörs gruppen!"
Else
MsgBox "Du är inte medlem i Administratörs gruppen!"
End If

End Sub