MOTOBIT.COM - ASP upload, IIS utility 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