Servers Property, read only, Domain class

Description

Collection of servers that are visible in the specified domain.

Syntax

Set vServers = Domain.Servers

Returns

Servers - WindowsNT servers that are visible in the domain.

Examples

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

Properties of Domain class

Groups, Name, PDC, Servers, Users

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.