Get-ACLs for a list of folders, writing out to an Excel sheet

Get-ACLSpreadSheet.ps1

$ErrorActionPreference = "Stop"

$Excel = new-Object -comobject Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add()
$Sheet = $Excel.Worksheets.Item(1)
$Sheet.Cells.Item(1,1) = "Folder Name"
$Sheet.Cells.Item(1,2) = "Folder Permissions (allow)"
$Sheet.Cells.Item(1,3) = "Folder Permissions (Deny)"
$intRow = 2
$WorkBook = $Sheet.UsedRange
$WorkBook.Font.Bold = $True

$data = dir
foreach ($head in $data) 
{
$acl =  (Get-Acl $head).Access 
$Permission = $acl | ? AccessControlType -ne 'Deny' | select -ExpandProperty IdentityReference
$Sheet.Cells.Item($intRow, 1) = $head
$Sheet.Cells.Item($intRow, 2) = $Permission -join "`n"
$Sheet.Cells.Item($intRow, 3) = ($acl | ? AccessControlType -eq 'Deny' | select -expand IdentityReference) -join "`n"
$intRow = $intRow + 1
}

$WorkBook.EntireColumn.AutoFit()
$intRow = $intRow + 1
$Sheet.Cells.Item($intRow,1).Font.Bold = $True
$Sheet.Cells.Item($intRow,1) = "Folder Permissons Report"