| 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: info@pstruh.cz