Dim UM:Set UM = CreateObject("UserManager.Server")
'Select domain controller
UM.Select "PDC"
'Add user guest to the Users group in domain
UM.Users("Guest").AddToGroup "Users"
Easy to use classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. Simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL.