Benutzergruppe des aktuellen Benutzers ermitteln

Computer: Software & Programmierung Datenbanken allgemein
1

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

2

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