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
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