MOTOBIT.COM - ASP upload, IIS utility Servers Property, read only of Domain class

Enumerate domain servers, local groups on the servers and a group members

Option Explicit
Dim Domain, Server

'create a domain object
Set Domain = CreateObject("UserManager.Domain") 

'Enumerate servers in the domain
For Each Server In Domain.Servers
  ListGroupsOnServer Server
Next

'this sub lists all groups on one server
Sub ListGroupsOnServer(Server) 
  Dim Group, Member

  'Enumerate all local groups
  For Each Group In Server.LocalGroups

    'Print server and group name
    Wscript.Echo server.Name, group.Name

    For Each Member In Group.Members
      If IsObject(Member) Then
        Wscript.Echo " *", Member.Name
      Else
        Wscript.Echo " *", Member
      End If
    
  
    Next
  Next 
End Sub