MOTOBIT.COM - ASP upload, IIS utility List of disabled user accounts

Sample for UserManager.User.Disabled | Changes | Purchase | Download


List of disabled user accounts 
  'Get UserManager.Server object
  Dim UM:Set UM = CreateObject("UserManager.Server")
  Dim Out
  Out = Out & "Disabled user accounts:" & vbCrLf
  Out = Out & toS("Account",25) & toS("LockOut", 9) & "LastLogon" & vbCrLf
  'List of disabled user accounts
  Dim User
  For Each User In UM.Users
    If User.Disabled Then
      Out = Out & toS(User.Name,25) & toS(User.LockOut,9) & User.LastLogon & vbCrLf
    End If

  Wscript.Echo Out

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

Other links for the List of disabled user accounts sample


Properties of the user account, and methods for creating, deleting and selecting users.


ActiveX UserManager is easy to use COM component with classes to create, delete and manage local and remote user accounts, groups, servers and domains in the Windows NT (2000/XP) environment. You can simple work with user accounts and groups from VBA, VBS/JS, ASP and T-SQL programming environment.

© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: