List Last Logon Time for Active Directory

daniele · Post by **daniele** » 02 Nov 2009, 11:16

Copiare il testo seguente in un file
Sostituite NOME_DOMINIO e NOME_SERVER con i nomi appropriati
Salvare il file con estensione .VBS (es. LastLogonTime.VBS).
Eseguire il comando CSCRIPT LASTLOGONTIME.VBS

' List last logon times
' 2001-03-27 John Savill, Jakob Hussfelt http://www.ntfaq.com
On Error Resume Next
sEnterDCs = "NOME_DOMINIO,NOME_SERVER"
sObjects = Split(sEnterDCs, ",")
Set oDomain = GetObject("WinNT://" & sObjects(0))
oDomain.Filter = Array("User")
WScript.Echo "Showing last login times of accounts from: " & oDomain.Name & vbNewLine
For Each oDomainItem In oDomain
  sUsrLogin = oDomainItem.LastLogin
  If UBound(sObjects) >= 1 Then
    For ii = 1 To UBound(sObjects)
      Set oUsr = GetObject("WinNT://" & sObjects(ii) & "/" & oDomainItem.Name & ",user")
      If oUsr.LastLogin > sUsrLogin Then sUsrLogin = oUsr.LastLogin
    Next
  End If
  WScript.Echo "Username: " & Left(oDomainItem.Name & Space(22),22) & "Last login: " & FormatDateTime(sUsrLogin)
Next

Questo script interroga solamente il Primary Domain Controller