Enumerate all groups and accounts

Examples

Enumerate all groups and accounts
Dim Server, Group, Member Set Server = CreateObject("UserManager.Server") Server.Select "" For Each Group In Server.Groups Debug.Print Group.Name For Each Member In Group.Members If IsObject(Member) Then Debug.Print Group.Name, ",", Member.Name Else Debug.Print Group.Name, ",", Member End If Next Next Group

  Dim Server, Group, Member
  
  Set Server = CreateObject("UserManager.Server")
  Server.Select ""
  For Each Group In Server.Groups
    Debug.Print Group.Name
    For Each Member In Group.Members
      If IsObject(Member) Then
        Debug.Print Group.Name, ",", Member.Name
      Else
        Debug.Print Group.Name, ",", Member
      End If
    Next
  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.