Enumerate localgroup members

Examples

Enumerate localgroup members
Wscript.Echo "Server local groups and members :" Dim Server, User, A, I Set Server = CreateObject("UserManager.Server") For Each Group In Server.LocalGroups Wscript.Echo "LocalGroup : " & Group.Name EnumGroupMembers Group Next Sub EnumGroupMembers(Group) 'Put all users to an array Dim A A = Group.Members.Items 'Go through the array 'You can also use "For Each Member in Group.Members" For i=0 To UBound(A) If VarType(A(I)) = vbObject Then Wscript.Echo " - Member:" & A(I).Name Else'Some error Wscript.Echo " - Member:" & A(I) End If Next End Sub

Wscript.Echo "Server local groups and members :"

Dim Server, User, A, I
Set Server = CreateObject("UserManager.Server")
For Each Group In Server.LocalGroups
  Wscript.Echo "LocalGroup : " & Group.Name
  EnumGroupMembers Group
Next

Sub EnumGroupMembers(Group)
  'Put all users to an array
  Dim A
  A = Group.Members.Items

  'Go through the array
  'You can also use "For Each Member in Group.Members"
  For i=0 To UBound(A)
    If VarType(A(I)) = vbObject Then
      Wscript.Echo " - Member:" & A(I).Name
    Else'Some error
      Wscript.Echo " - Member:" & A(I)
    End If
  Next
End Sub

Other links for Enumerate localgroup members

UserManager.GroupMembers

Contains methods for enumerating and selecting user accounts from the group.
GroupMembers uses NetLocalGroupGetMembers or NetGroupGetUsers to enumerate group members.

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.