Dim Server, User Set Server = CreateObject("UserManager.Server") Set User = Server.Users.Add("Coll", "Password") User.FullName = "Mr. Alex Coll"