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

15:46:17Fără Titlu —» Путепроводные Заметки
14:39:00Ovoizi —» Andrei LANGA. Blogul personal
03:06:24Fără Titlu —» Путепроводные Заметки
20:31:27Fără Titlu —» Путепроводные Заметки
19:04:30Fără Titlu —» Путепроводные Заметки
18:02:48Fără Titlu —» Путепроводные Заметки
16:46:44Fără Titlu —» Путепроводные Заметки
15:42:47Fără Titlu —» Путепроводные Заметки
09:26:01Mesaj de felicitare —» Biblioteca de Arte 'Tudor Arghezi'
00:19:19Fără Titlu —» Путепроводные Заметки
18:32:13Toamnele Chișinăului românesc de altă dată —» Biblioteca de Arte 'Tudor Arghezi'
16:25:51Fără Titlu —» Путепроводные Заметки
09:16:21Cel mai bun vin din Moldova —» Fine Wine
04:22:00DIN POEZIA FRANCEZĂ —» Leo Butnaru
02:21:18Fără Titlu —» Путепроводные Заметки
21:46:00I got mail —» turn up the silence
20:47:56Fără Titlu —» Путепроводные Заметки
19:39:35Fără Titlu —» Путепроводные Заметки
18:00:51Fără Titlu —» Путепроводные Заметки
15:33:08Fără Titlu —» Путепроводные Заметки
11:51:22Cafeneaua Literară: Spiritul Creator al Modernismului —» Biblioteca de Arte 'Tudor Arghezi'
08:40:56The Governor Fume Blanc 2023: Grand Gold —» Fine Wine
07:10:16Tabără de vară „Îndrăznește să-ți pese” la Biblioteca „Dimitrie Cantemir”, cu adolescenți mai încrezători și mai deschiși către lume —» BPR Ungheni's Blog
04:46:00DIN STRICTUL NECESAR —» Leo Butnaru
12:33:00Fantome —» Andrei LANGA. Blogul personal