| ||
'Get UserManager.Server object Dim UM:Set UM = CreateObject("UserManager.Server") 'Add a test user Dim User Set User = UM.Users.Add("~TestUser", "1TestPassword") Dim Out: Out = "Account logon info:" & vbCrLf Out = Out & toS("Account",20) & toS("Bad password", 15) & _ toS("NumOfLogons", 15) & toS("LastLogon", 15) & vbCrLf For Each User In UM.Users Out = Out & toS(User.Name,20) & toS(User.BadPasswordCount,15) & _ toS(User.NumOfLogons,15) & toS(User.LastLogon,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 |