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://ybzwz.com/article/ejdid.html