Set Server = CreateObject("UserManager.Server")
Set Group = Server.LocalGroups("Administrators")
Group.Name = "NewName of Admin group" 'rename to the new name
Group.Name = "Administrators" 'rename to the old name
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.