Collection of servers that are visible in the specified domain.
Set vServers = Domain.Servers
Servers - WindowsNT servers that are visible in the domain.
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
ActiveX UserManager is easy to use COM component with classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. You can simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL programming environment.
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: email@example.com