MOTOBIT.COM - ASP upload, IIS utility Expires Property of User class

Account for one week

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")

  'Add a test user
  UM.Users.Add "~TestUser", "1TestPassword"

  'This account expires after 7 days.
  UM.Users("~TestUser").Expires = Date+7

List accounts with expiration info

  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")
  Dim Out

  Out = Out & "Expires and password changed info:" & vbCrLf
  Out = Out & toS("Account",25) & toS("Expires", 20) & "Password last changed" & vbCrLf
  'List of disabled user accounts
  Dim User
  For Each User In UM.Users
    Out = Out & toS(User.Name,25) & toS(User.Expires,20) & _
      CDate(Now() - User.PasswordAge) & vbCrLf
  Next

  Wscript.Echo Out

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