Generate a list of last user logon times for a domain

Save the following script like usrlogin.vbs

—8<—
On Error Resume Next
Set oDomain = GetObject(”WinNT://” & WScript.Arguments(0))
oDomain.Filter = Array(”User”)
WScript.Echo “Showing last login times of accounts from: ” & oDomain.Name & vbCRLF
For Each oDItem In oDomain
Err.Clear
sULogin = oDItem.LastLogin
For nI = 1 To (WScript.Arguments.Count - 1)
Set oUsr = GetObject(”WinNT://” & WScript.Arguments(nI) & “/” & oDItem.Name & “,user”)
If oUsr.LastLogin > sULogin Then sULogin = oUsr.LastLogin
Next
If Err.Number = 0 Then WScript.Echo “Username: ” & Left(oDItem.Name & Space(22),22) & “Last login: ” & FormatDateTime(sULogin)
Next
—8<—

and execute it from the command line like

—8<—
C:\>cscript d:\temp\usrlogin.vbs //nologo PDC BDC1 BDC2
Showing last login times of accounts from: PDC

Username: dummyno1 Last login: 2001-03-17 13:59:10
Username: dummyno2 Last login: 2001-03-06 14:57:39
Username: dummyno3 Last login: 2001-03-24 15:26:32
Username: dummyno4 Last login: 2001-03-26 15:26:32
Username: dummyno5 Last login: 2001-03-17 08:21:51
Username: dummyno6 Last login: 2001-03-15 15:06:18
Username: dummyno7 Last login: 2001-03-27 15:46:10
Username: dummyno8 Last login: 2001-03-13 15:49:42
Username: dummyno9 Last login: 2001-03-26 10:18:54
—8<—

Change “PDC BDC1 BDC2″ with a list of the names of your DCs, starting with the PDC. If the first argument isn’t the PDC (or domain) name, some accounts may be left out of the list. Only accounts which have been logged in to at least once will be shown.


Sursa
2009-02-03 09:47:12



Comenteaza





Ultimele 25 posturi adăugate

01:51:40Fără Titlu —» Путепроводные Заметки
21:55:08Fără Titlu —» Путепроводные Заметки
20:39:35Fără Titlu —» Путепроводные Заметки
20:02:54Fără Titlu —» Путепроводные Заметки
18:32:32Fără Titlu —» Путепроводные Заметки
16:19:47Fără Titlu —» Путепроводные Заметки
09:21:00AL 7-LEA DIN 11 —» Leo Butnaru
05:56:00POLITICĂ, POLITICIENI —» Leo Butnaru
02:35:15Fără Titlu —» Путепроводные Заметки
00:31:19Fără Titlu —» Путепроводные Заметки
18:36:45Fără Titlu —» Путепроводные Заметки
14:53:54Fără Titlu —» Путепроводные Заметки
08:58:00PORTRETUL UNEI CANALII —» Leo Butnaru
04:45:58Fără Titlu —» Путепроводные Заметки
21:58:31Fără Titlu —» Путепроводные Заметки
20:46:00Îndemnul de a direcționa 2% din impozitul pe venit către A.O. Concordia și fotografiile de la Campaniile caritabile ,,Vreau și eu să învăț’’( 21-23.08.2020 și ,,Dăruim pentru ei ‘’(23-25.04.2021) —» Blogul elevilor din satul Chetrosu
17:38:18Fără Titlu —» Путепроводные Заметки
13:20:22Fără Titlu —» Путепроводные Заметки
06:43:00DIN STRICTUL NECESAR —» Leo Butnaru
05:14:56Fără Titlu —» Путепроводные Заметки
21:18:35Fără Titlu —» Путепроводные Заметки
05:42:00POEZIA LUMIII —» Leo Butnaru
03:34:44Fără Titlu —» Путепроводные Заметки
03:34:44Fără Titlu —» Путепроводные Заметки
03:30:38Fără Titlu —» Путепроводные Заметки