Dim S, Group
Set S = CreateObject("UserManager.Server")
For Each Group In S.Users("administrator").Groups
Debug.Print "<br>" & Group.Name & "," & Group.Comment
Next
Other links for List of groups that 'Administrator' belongs to
Easy to use classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. Simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL.