Enumerate all groups and accounts

Examples

Enumerate all groups and accounts
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 accounts

UserManager

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.