Enumerate all groups and account

Examples

Enumerate all groups and account
Set Server = CreateObject("UserManager.Server") Server.Select "" For Each Group In Server.Groups Debug.Print Group.Name For Each User In Group.Users Debug.Print Group.Name, ",", User.Name Next User Next Group

  Set Server = CreateObject("UserManager.Server")
  Server.Select ""
  For Each Group In Server.Groups
    Debug.Print Group.Name
    For Each User In Group.Users
      Debug.Print Group.Name, ",", User.Name
    Next User
  Next Group

Other links for Enumerate all groups and account

UserManager.Groups

Contains methods and properties for enumerating groups.

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.