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许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

发展壮大离不开广大客户长期以来的信赖与支持，我们将始终秉承“诚信为本、服务至上”的服务理念，坚持“二合一”的优良服务模式，真诚服务每家企业，认真做好每个细节，不断完善自我，成就企业，实现共赢。行业涉及花箱等，在成都网站建设公司、成都全网营销推广、WAP手机网站、VI设计、软件开发等项目上具有丰富的设计经验。
标题名称：ForDear于-创新互联
文章链接：http://6mz.cn/article/ejdid.html