| Rename user account | |
|---|---|
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") Dim User 'Add a test user Set User = UM.Users.Add("~TestUser", "1TestPassword") 'Set User = UM.Users("~TestUser") 'Get name of the new account Wscript.Echo User.Name 'rename the user account User.Name = "~secondname" 'Get name of the new account Wscript.Echo User.Name 'Delete the test account UM.Users("~secondname").Delete | |