PasswordCannotChange

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")
  
  'Add a test user
  Dim User
  Set User = UM.Users.Add("~TestUser", "1TestPassword")

  'Test user cannot change password
  User.PasswordCannotChange = True
  
  'List of accounts and password info
  Dim Out: Out = "Password info:" & vbCrLf
  Out = Out & toS("Account",20) & toS("Cannot change?", 15) & _
    toS("Never expires?", 15) & toS("Not required?", 15) & vbCrLf
 
  For Each User In UM.Users
    Out = Out & toS(User.Name,20) & toS(User.PasswordCannotChange,15) & _
      toS(User.PasswordNeverExpires,15) & toS(User.PasswordNotRequired,15) & vbCrLf
  Next

  Wscript.Echo Out

  'Delete the test account
  UM.Users("~TestUser").Delete

  Function toS(byval W, Cols)
    W = "" & W: If W = "" Then W = "-"
    On Error Resume Next
    W = W & Space(Cols-Len(W))
    toS = W
  End Function

'Output:
Password info:
Account             Cannot change? Never expires? Not required?
Administrator       False          True           False
Guest               True           True           True
IUSR_ALIAWEB        True           True           True
IWAM_ALIAWEB        True           True           True
TsInternetUser      True           True           True
VUSR_ALIAWEB        False          True           True
VUSR_ALIAWEB1       False          True           True
~TestUser           True           False          False