Когда в последний раз логинелся пользователь в active directory?

'Set query attribute. 
strBase = "<LDAP://" & strDomain & ">" 
strFilter = "(&(objectCategory=person)(objectClass=user))" 
strAttributes = "distinguishedName,lastLogonTimeStamp" 
  
Const ADS_SCOPE_SUBTREE=2 
ADOCommand.CommandText = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" 
ADOCommand.Properties("Page Size") = 1000 
ADOCOmmand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set ADORecordset = ADOCommand.Execute 
  
'Get local time zone from registry 
Set objShell = CreateObject("Wscript.Shell") 
regKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias") 
  
If (UCase(TypeName(regKey)) = "LONG") Then 
    reg = regKey 
ElseIf (UCase(TypeName(regKey)) = "VARIANT()") Then 
    reg = 0 
    For i = 0 To UBound(regKey) 
        reg = reg + (regKey(i) * 256^i) 
    Next 
End If

Ищем мусор в Active Directory

Если вам необходимо найти мусор, такой как пользователи не логинившиеся более 60 дней, или такие же одинокие ПК, можно использовать следующие скрипты:

http://gallery.technet.microsoft.com/scriptcenter/Move-and-disable-inactive-b1cf86c3
http://gallery.technet.microsoft.com/scriptcenter/Inactive-Users-Script-76eb43f4