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

05:59:16JURNALUL DE LA HYPERION (VI) —» Leo Butnaru
07:34:02Trei noutăți de la Crama Mircești —» Fine Wine
06:03:20ÎN PREAJMA UNEI CĂRȚI NOI —» Leo Butnaru
09:44:08Rusia în anii 90…pregătindu-l pe Putin…(reflecții pe marginea unui film). —» blog cultural
05:15:16DIN POEZIA FRANCEZĂ CONTEMPORANĂ —» Leo Butnaru
05:11:09JURNALUL DE LA HYPERION —» Leo Butnaru
06:34:16O MARE POETĂ DIN FINLANDA —» Leo Butnaru
16:08:35PORȚI / PUERTAS —» Andrei LANGA. Blogul personal
04:19:45Atenție la semne! 9 mai ne-a dezvăluit cam cum va arăta „concursul” de ocupare a funcției de președinte al RM —» Nicolae Federiuc
19:13:15Hyde Park împlinește 21 de ani —» Curaj.TV | Media alternativă
18:47:41UN ALTFEL DE RĂZBOI —» Andrei LANGA. Blogul personal
22:49:14Nemo —» APort | "Pentru un român care știe citi, cel mai greu lucru e să nu scrie." I.L. Carag
19:53:38Drapele vandalizate pe clădirea unui minister —» Curaj.TV | Media alternativă
19:46:01Comemorare Mihai Creangă la Memorialul Sighet —» Curaj.TV | Media alternativă
17:40:39FLASH (trad. al español) —» Andrei LANGA. Blogul personal
12:46:32UN ALTFEL DE RĂZBOI —» Andrei LANGA. Blogul personal
11:18:14Cântărețul Ștefan Petrache ar fi împlinit 75 ani —» CHIŞINĂU MUZICAL | Blogul Bibliotecii de Arte "Tudor Arghezi"
08:09:45#NoSugarPolitics: Mobilizarea si drepturile omului, rezolutia PE, investigatie Italia —» Curaj.TV | Media alternativă
01:16:40from the director of the boondock saints —» turn up the silence
13:23:16RETRATOS VOLADORES* (Portrete plutitoare, trad. al castellano) —» Andrei LANGA. Blogul personal
11:37:20Era politicienilor pitici. Când un ditamai șef de stat e mult mai mărunt decât un blogger —» Nicolae Federiuc
19:27:00Poliția locală din sect. 2 ignoră prevederile legale —» Curaj.TV | Media alternativă
15:50:52Poliția locală ignoră vandalii de la kilometrul zero —» Curaj.TV | Media alternativă
13:18:37„Legată cu funia de pământ” de Lorina Bălteanu (Pledoarie pentru lectură) —» BiblioCity
04:48:40Monumentul reginei e inundat cu un proiect sofisticat —» Curaj.TV | Media alternativă