Script que lista o ultimo login das contas de usuário no Active Directory

Ola pessoal,

Quem trabalha com AD sem duvida já recebeu demandas referentes a contas de usuário como, por exemplo,
listar o ultimo login dos usuários do dominio. Segue abaixo um script Powershell que automatiza esta tarefa.

Copiem e colem em um notepad , salvem com a extensão *.ps1 (Ex:lastlogon.ps1) e executem no Controlador do Dominio.

Trap {“Error: $_”; Break;}

$D = [System.DirectoryServices.ActiveDirectory.Domain]::GetCurrentDomain()
$Domain = [ADSI]”LDAP://$D”
$Searcher = New-Object System.DirectoryServices.DirectorySearcher
$Searcher.PageSize = 200
$Searcher.SearchScope = “subtree”

$Searcher.Filter = “(&(objectCategory=person)(objectClass=user))”
$Searcher.PropertiesToLoad.Add(“distinguishedName”) > $Null
$Searcher.PropertiesToLoad.Add(“lastLogon”) > $Null

# Create hash table of users and their last logon dates.
$arrUsers = @{}

# Enumerate all Domain Controllers.
ForEach ($DC In $D.DomainControllers)
{
$Server = $DC.Name
$Searcher.SearchRoot = “LDAP://$Server/” + $Domain.distinguishedName
$Results = $Searcher.FindAll()
ForEach ($Result In $Results)
{
$DN = $Result.Properties.Item(“distinguishedName”)
$LL = $Result.Properties.Item(“lastLogon”)
If ($LL.Count -eq 0)
{
$Last = [DateTime]0
}
Else
{
$Last = [DateTime]$LL.Item(0)
}
If ($Last -eq 0)
{
$LastLogon = $Last.AddYears(1600)
}
Else
{
$LastLogon = $Last.AddYears(1600).ToLocalTime()
}
If ($arrUsers.ContainsKey(“$DN”))
{
If ($LastLogon -gt $arrUsers[“$DN”])
{
$arrUsers[“$DN”] = $LastLogon
}
}
Else
{
$arrUsers.Add(“$DN”, $LastLogon)
}
}
}

# Output latest last logon date for each user.
$Users = $arrUsers.Keys
ForEach ($DN In $Users)
{
$Date = $arrUsers[“$DN”]
“$DN;$Date”
}
i