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