Enumerate server groups

Examples

Enumerate server groups
Wscript.Echo "Server groups :" Dim Server, A, I Set Server = CreateObject("UserManager.Server") 'Put all users to an array A = Server.Groups.Items 'Go through the array For i=0 To UBound(A) Wscript.Echo A(I).Name Next Wscript.Echo "Server local groups :" Set Server = CreateObject("UserManager.Server") 'Put all users to an array A = Server.LocalGroups.Items 'Go through the array For i=0 To UBound(A) Wscript.Echo A(I).Name Next

Wscript.Echo "Server groups :"

Dim Server, A, I
Set Server = CreateObject("UserManager.Server")

'Put all users to an array
A = Server.Groups.Items

'Go through the array
For i=0 To UBound(A)
   Wscript.Echo A(I).Name
Next


Wscript.Echo "Server local groups :"

Set Server = CreateObject("UserManager.Server")

'Put all users to an array
A = Server.LocalGroups.Items

'Go through the array
For i=0 To UBound(A)
   Wscript.Echo A(I).Name
Next

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.