Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Enumerate groups and users

Sub EnumGroupsAndUsers()     Dim grp As Group     Dim usr As User     For Each usr In DBEngine(0).Users         Debug.Print usr.Name         For Each grp In usr.Groups             Debug.Print vbTab; grp.Name         Next     Next End Sub