recursively get directory ACLs and last modified date

recursive-acl.ps1

$Items = (Get-ChildItem "C:\" -Recurse | Where { $_.PSIsContainer } | select fullname | %{$_.fullname.trim()})
$Path = "C:\temp\ACLs.csv"

$Table = @()
$Record = [ordered]@{
"Directory" = ""
"Owner" = ""
"FileSystemRights" = ""
"AccessControlType" = ""
"IdentityReference" = ""
"IsInherited" = ""
"InheritanceFlags" = ""
"PropogationFlags" = ""
"ModifiedDate" = ""
}

Foreach ($Item in $Items)
{

$ACL = (Get-Acl -Path $Item)

$LastWriteTime = (Get-Item $Item).LastWriteTime

$Record."Directory" = $ACL.path | %{$_.trimstart("Microsoft.PowerShell.Core\FileSystem::")}
$Record."Owner" = $ACL.Owner

Foreach ($SItem in $ACL.access)
{
$Record."FileSystemRights" = $SItem.FileSystemRights
$Record."AccessControlType" = $SItem.AccessControlType
$Record."IdentityReference" = $SItem.IdentityReference
$Record."IsInherited" = $SItem.IsInherited
$Record."InheritanceFlags" = $SItem.InheritanceFlags
$Record."PropogationFlags" = $SItem.PropagationFlags
$Record."ModifiedDate" = $LastWriteTime


$objRecord = New-Object PSObject -property $Record
$Table += $objrecord
}
}
$Table | Export-Csv -Path $Path -NoTypeInformation