' Prüft, mit welchen Rechten ein User im System
' angemeldet ist
'
' Wenn kein Username angegeben wird, wird der
' Login-Status für den aktuell angemeldeten User
' ermittelt
'
' Rückgabewert: USER_PRIV_GUEST : Gast
'               USER_PRIV_USER  : Eingeschränkte Rechte
'               USER_PRIV_ADMIN : Administrative Rechte
'
' Hinweis: Auf Win9x-Systemen wird IMMER USER_PRIV_ADMIN
'          zurückgegeben!
'
Public Function User_LogInState( _
  Optional ByVal sUserName As String = "") As USER_PRIV
 
  Dim nResult As Long
  Dim nBuffer As Long
  Dim UserInfo As USER_INFO_1
  Dim bServer() As Byte
  Dim bUser() As Byte
 
  ' NT-System?
  If Not IsWinNT() Then
    ' Nein, dann immer ADMIN-Rechte!
    User_LogInState = USER_PRIV_ADMIN
  Else
 
    ' Computer und UserName in Byte-Array umwandeln
    If sUserName = "" Then sUserName = GetUser()
    bServer = "" & vbNullChar
    bUser = sUserName & vbNullChar
 
    ' UserInfo "holen"
    nResult = NetUserGetInfo( _
      bServer(0), bUser(0), &H1, nBuffer)
 
    If nResult = 0 Then
      ' Daten in InfoStruktur kopieren
      CopyMemory UserInfo, ByVal nBuffer, Len(UserInfo)
      NetApiBufferFree nBuffer
 
      ' Benutzer-Rechte auswerten
      User_LogInState = UserInfo.usri1_priv
 
    End If
  End If
End Function

' Um Benutzerechte zu ermitteln
Dim nState As USER_PRIV
 
nState = User_LogInState()
msgbox  _
  Choose(nState + 1, "Gast", _
  "Benutzer (mit eingeschränkten Rechten)", _
  "Administrator")