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

13:59:15Teatrul Țăndărică din București vine la Chișinău! Hai cu noi la spectacolul „Motanul Încălțat”! —» Sunt MAMĂ!
11:58:45Toate Evele mele —» Frinturi din suflet de femeie
09:17:23Autocar cu 65 de moldoveni, reținut în Olanda —» Elena Robu
07:47:34Viaţa bate filmul şi poliţia din Buzău —» Curaj.TV | Media alternativă
05:52:03Teen Boy Comforter Set —» Andrei Fornea
04:07:34Room And Board Dining Table —» Andrei Fornea
23:21:02Why Canadians send me to the Russians?! —» Informaţii pentru studenţi !
21:10:16The 10 Health Benefits of Wine Will Inspire You to Pour a Hearty Glass Tonight —» ajna-blogging-press
20:15:05Горит ЧЕК, аварийный режим. Удаление сажевых фильтров DPF —» Сажевые фильтры (DPF/ FAP). Чип тюнинг. Теория, практика.
20:05:51Турбо-утюг BMW F30 335 ActiveHybrid3. Stage1- 418 HP. Project 500 HP —» Сажевые фильтры (DPF/ FAP). Чип тюнинг. Теория, практика.
19:46:51Les livres sont, comme les virus, des entités intermédiaires entre l’objet et l’être vivant. —» turn up the silence
19:11:28Правительство элитарного меньшинства не будет решать проблемы большинства —» Блог Михаила Полянского
17:59:00©️ Îmbrățișează mai des, mai strâns, cu iubire… —» Licurici de suflet
14:17:23Adevărul. Puncte de sprijin și influența Internetului. —» … mai mult emoţii, decît cuvinte.
12:46:23Gheorghe Balan și-a dat demisia de la șefia Inspectoratului General de Poliție —» Elena Robu
12:19:17Cum vor fi judecați soțul cu soția? [Pastor Vasile Filat, 2019] —» Moldova Creștină
12:10:14Poliţia filmează şi ofensează la poarta pieţei —» Curaj.TV | Media alternativă
11:59:12Visătoarea cu ochii de culoarea cerului... —» BiblioCity
11:57:30Dialog în miez de toamnă cu Doina Postolachi —» BiblioCity
11:41:42Large Bedroom Mirror —» Andrei Fornea
11:28:18Exportul Vinului Moldovei înregistrează cel mai înalt nivel nivel din ultimii 5 ani —» Elena Robu
11:05:14Stema și Drapelul municipiului Ungheni —» Blogul lui Marin Bodrug
10:52:58Average Cost Of A Couch —» Andrei Fornea
10:31:57Garden Box Designs —» Andrei Fornea
10:31:31Au blocat mașina unui funcționar și au chemat poliția —» Curaj.TV | Media alternativă