Pasted

function checkFolderPremissions($fld){
    if($fld.Item -ne $null -and $fld.Item.HasUniqueRoleAssignments ){
        Write-Host "D:$($fld.ServerRelativeUrl)"
        showRights($fld)
    }
    if($fld.Files.Count -gt 0){
        foreach($f in $fld.Files){
            checkFilePremissions $f
        }
    }
    if($fld.SubFolders.Count -gt 0){
        foreach($d in $fld.SubFolders){
            checkFolderPremissions $d
        }
    }
}
 
function checkFilePremissions($fil){
    if($fil.Item -ne $null -and $fil.Item.HasUniqueRoleAssignments ){
        Write-Host "F:$($fil.ServerRelativeUrl)"
    }
}
 
function showRights($fld){
    $dict = New-Object 'system.collections.generic.dictionary[[string],[system.collections.generic.list[string]]]'
    foreach($ra in $fld.Item.RoleAssignments){
        foreach($rdb in $ra.RoleDefinitionBindings){
            if(-not $dict.ContainsKey($rdb.Name)){
                $ll = new-object 'system.collections.generic.list[string]'
                $dict.Add($rdb.Name, $ll)
            }
            $ll = $dict[$rdb.Name]
            if(-not $ll.Contains($ra.Member.Name)){
                $ll.Add($ra.Member.Name)
            }
        }
    }
    $dict
}
 
$w = Get-SPWeb http://xxxxxx.com/sites/Policies
$lists = @( "KEMH", "MWI")
 
foreach($list in $lists){
    $l = $w.Lists.TryGetList($list)
 
    if($l -eq $null){
        throw "List not found: $($list)"
    }
 
 
    $rf = $l.RootFolder
    checkFolderPremissions $rf
}