Dim UM:Set UM = CreateObject("UserManager.Server") 'Add user guest to the Users group UM.Users("Guest").AddToLocalGroup "Users"