ForDear于-创新互联

$a="C:\temp" #Root Folder
$L=0 #how many layers of subfolders you want to look into, 0 means only root folder. 
$p=@()

If ($L -gt 0)  #this loop is for being compatible to PS 2.0, in 3.0 above this are -Depth -Directory for Get-ChildItem to support.
{
    For ($i=0;$i -lt $L;$i++)
    {
        $s="\*"
        $a=$a+$s
        $p=$p+$a
    }
    $b=Get-ChildItem $p | ?{ $_.PSIsContainer } | select -ExpandProperty FullName
    $b=$b+$a
}
Else
{
    $p=$p+$a
    $b=Get-Item $p | ?{ $_.PSIsContainer } | select -ExpandProperty FullName
}

$b | % {
    $c=$_
    $UserName=$null
    (Get-Acl $_).Access | % {
        If ($_.IdentityReference -ilike "S-1-5-*")
        {
            $UserName=SID2Name($_.IdentityReference)
        }
        Else
        {
            $UserName=$_.IdentityReference
        }

        New-Object -TypeName PSobject -Property @{
            Path=$c
            IdentityReference=$UserName
            FileSystemRights=$_.FileSystemRights
            AccessControlType=$_.AccessControlType
        }
    }
} | Export-Csv ".\ACL.csv" -NoTypeInformation -Encoding UTF8

& ".\ACL.csv"

Function SID2Name ($SID)
{
    $objSID = New-Object System.Security.Principal.SecurityIdentifier($SID)
    Try
    {
        $objUser = $objSID.Translate([System.Security.Principal.NTAccount]) 
    }
    Catch
    {
        Return $SID
    }
    Return $objUser.Value
}

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。