Set Srv = CreateObject("UserManager.Server") Set Usr = Srv.Users("John") Usr.Ras.AdminSetCallback = True Usr.Ras.PhoneNumber = "61225407"