| ||
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 |