|Enumerating user accounts in one server|
'Unlock all user accounts on the local computer Set Users = CreateObject("UserManager.Users") For Each User In Users User.LockOut = False Next 'Write names of all user accounts Set Users = CreateObject("UserManager.Users") Open "AllUsers" For Output As #1 For Each User In Users Print #1, User.Name, User.FullName, User.UserComment, User.Flags Next Close #1
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