MOTOBIT.COM - ASP upload, IIS utility 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