benutzer DB Benutzernamen Benutzergruppe Benutzers

Benutzergruppe des aktuellen Benutzers ermitteln

Von: , Frage gestellt am Mo, 18. Okt 1999

Hallo,

beim Starten der DB Frage ich ab, unter welchem Benutzernamen sich der Anwender eingeloogt hat (DBEngine.Workspace(0).UserName).

Nun möchte ich auch noch wissen, welcher Benutzergruppe dieser Benutzrenamen zugeordnet ist. (Abhängig von der Benutzergruppe sind die Rechte an der geregelt).

Gibt es in VB eine Möglichkeit diese Zugehörigkeit abzufragen?

Vielen Dank im voraus!!

Klaus

1 Antworten zu dieser Frage

1. Antwort von nach 7 Stunden hilfreich

   Re: Benutzergruppe des aktuellen Benutzers ermitte

   Ein Benutzer kann ja mehreren Gruppen zugeordnet sein. Eine Liste der Gruppen bekommst du z.B. mit dieser Funktion:
   

   Public Function ShowGroups(UserName As String) As String
   Dim Usr As User, Grp As Group, WS As Workspace, Res As String
   On Error GoTo Er
   Set WS = DBEngine.Workspaces(0)
   Res = ""
   On Error Resume Next
   Set Usr = WS.Users(UserName)
   If Err.Number = 0 Then
   On Error GoTo Er
   For Each Grp In Usr.Groups
   Res = Res & ";" & Grp.name
   Next Grp
   End If
   Ex:
   ShowGroups = Mid(Res, 2)
   Exit Function
   Er:
   MsgBox "ShowGroups:" & Err.Description
   Resume Ex
   End Function
   

   
   Reinhard
   

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!