Get a list of groups that an NT user belongs to .
Set vGroups = User.Groups
Groups - Contains methods and properties for enumerating groups.
Groups Property uses NetUserGetGroups API function to enumerate groups.
List of groups that 'Administrator' belongs to |
Dim S, Group Set S = CreateObject("UserManager.Server") For Each Group In S.Users("administrator").Groups Debug.Print "<br>" & Group.Name & "," & Group.Comment Next |
AddToGroup, AddToLocalGroup, Delete, RemoveFromGroup, RemoveFromLocalGroup, UserAdd
AuthFlags, BadPasswordCount, CodePage, Comment, CountryCode, Disabled, Expires, Flags, FullName, Groups, HomeDir, HomeDirDrive, ID, LastLogOff, LastLogon, LocalGroups, LockOut, LogonHours, MaxStorage, Name, NumOfLogons, Password, PasswordAge, PasswordCannotChange, PasswordExpired, PasswordNeverExpires, PasswordNotRequired, PrimaryGroupID, Privilege, Profile, Ras, ScriptPath, Server, UserComment, Workstations
Properties of the user account, and methods for creating, deleting and selecting users.
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