Scan for insecure permissions on program files directory

Permissions-Scanner.ps1

$filename = -join ((65..90) + (97..122) | Get-Random -Count 32 | % {[char]$_})
Write-Host "Testing with filename: $filename"
"C:\Program Files", "C:\Program Files (x86)" | ForEach-Object {
  $outerDir = $_
  Get-ChildItem -Directory -Recurse $outerDir | ForEach-Object {
    $innerDir = $_
    try {
      $out = New-Item -Path $innerDir.FullName -Name $filename -ErrorAction Stop | Out-String
      Write-Warning "Path is writable: $($innerDir.FullName)"
      $out = Remove-Item -Path $($innerDir.FullName + "\$filename") -ErrorAction Stop | Out-String
    } catch {}
  }
}