|Enumerate all groups and accounts|
Dim Server, Group, Member Set Server = CreateObject("UserManager.Server") Server.Select "" For Each Group In Server.Groups Debug.Print Group.Name For Each Member In Group.Members If IsObject(Member) Then Debug.Print Group.Name, ",", Member.Name Else Debug.Print Group.Name, ",", Member End If Next Next Group
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: firstname.lastname@example.org