ADManager PlusPowerShell如何检测哪些用户可以访问 Windows 文件服务器上的共享

如何检测哪些用户可以访问 Windows 文件服务器上的共享

以下是使用 Windows PowerShell 和 ADManager Plus 获取服务器上用户共享权限报告的比较。

VBScript

使用 VBScript 获取文件夹权限的步骤：

  • 确定要从中检索报告的域。
  • 确定需要获取报告的 LDAP 属性。
  • 确定用于检索报告的主 DC。
  • 编译并执行脚本。
  • 将生成所需的报告。

VBScript 示例：

 已复制
strComputer = "." 
sParentFolder = InputBox("Please Enter folder to
 gather information on", "Parent Folder") 
SParentFoldern=replace(sParentFolder,"\","") 
SParentFoldern=replace(sParentFoldern,":","") 
Set fso = CreateObject("Scripting.FileSystemObject") 
'File name Same As Folder Name without
 special Caracteres  
fullfilename=SParentFoldern&".html" 
'WScript.echo fullfilename 
Set fsOut = fso.OpenTextFile
(fullfilename, ForAppending, True) 
On Error Resume Next 
fsOut.Writeline ("<html>"&vbCr&"<head>"&vbCr&"<title>File Permission For Folder under &"& SParentFoldern&"</title>"&vbCr&"</head>") 
strTableHead = "<table border=2 bordercolor='#000010' width='90%' id='Table1'>" 
fsOut.Writeline strTableHead 
fsOut.Writeline "<tr><td width='50%'>Folder</td>" & _ 
"<td width='50%'>User Name</td>"&_ 
"<td width='50%'>Permission</td></tr>" 
strTableFoot = "</table>" 
fsOut.Close 
ShowSubFolders FSO.GetFolder(sParentFolder),<br>fullfilename 
OutputFolderInfo sParentFolder, fullfilename 
<br>
Set fsOut = fso.OpenTextFile(fullfilename, ForAppending, True) 
fsOut.Writeline strTableFoot  
fsOut.Close 
MsgBox "Done " 
WScript.Quit 
Public Sub OutputFolderInfo(FolderName , sOutfile) 
Const FullAccessMask = 2032127, <br>ModifyAccessMask = 1245631, <br>WriteAccessMask = 1180095 
Const ROAccessMask = 1179817 
Const ForReading = 1, <br>ForWriting = 2, ForAppending = 8 
strComputer = "." 
'Build the path to the <br>folder because it requites 2 backslashes 
folderpath = Replace(FolderName, "\", "\\") 
objectpath = <br>"winmgmts:Win32_LogicalFileSecuritySetting<br>.path='" & folderpath & "'" 
'Get the security set for the object 
Set wmiFileSecSetting = GetObject(objectpath) 
'verify that the get was successful 
RetVal = wmiFileSecSetting.GetSecurityDescriptor<br>(wmiSecurityDescriptor) 
If Err Then 
MsgBox ("GetSecurityDescriptor failed" & <br>vbCrLf & Err.Number & vbCrLf & Err.Description) 
Err.Clear 
End If 
Set objWMIService = GetObject("winmgmts:" & "<br>{impersonationLevel=impersonate}!\\" & _ 
strComputer & "\root\cimv2") 
Set colFolders <br>= objWMIService.ExecQuery<br>("SELECT * FROM Win32_Directory WHERE Name ='" & _ 
folderpath & "'") 
For Each objFolder In colFolders 
' Retrieve the DACL array of Win32_ACE objects. 
DACL = wmiSecurityDescriptor.DACL 
Set fso = <br>CreateObject("Scripting.FileSystemObject") 
Set fsOut = <br>fso.OpenTextFile(sOutfile, ForAppending, True) 
For Each wmiAce In DACL 
' Get Win32_Trustee object from ACE 
Set Trustee = wmiAce.Trustee 
fsOut.Writeline "<tr><td width='50%'>"&objFolder.Name&"</td>" & _ 
"<td width='50%'>"&Trustee.Domain&"\"&Trustee.Name&"</td>" 
<br>
'fsOut.Write objFolder.Name & ",<br>" & Trustee.Domain & "\" & Trustee.Name & "," 
FoundAccessMask = False 
CustomAccessMask = Flase 
While Not FoundAccessMask And<br> Not CustomAccessMask 
If wmiAce.AccessMask = FullAccessMask Then 
AccessType = "Full Control" 
FoundAccessMask = True 
End If 
If wmiAce.AccessMask = ModifyAccessMask Then 
AccessType = "Modify" 
FoundAccessMask = True 
End If 
If wmiAce.AccessMask = WriteAccessMask Then 
AccessType = "Read/Write Control" 
FoundAccessMask = True 
End If 
If wmiAce.AccessMask = ROAccessMask Then 
AccessType = "Read Only" 
FoundAccessMask = True 
Else 
CustomAccessMask = True 
End If 
Wend 
If FoundAccessMask Then 
'fsOut.Writeline AccessType 
fsOut.Writeline "<td width='50%'>"&AccessType&"</td></tr>" 
Else 
fsOut.Writeline "<td width='50%'>Custom</td></tr>" 
'fsOut.Writeline "Custom" 
End If 
Next 
Set fsOut = Nothing 
Set fso = Nothing 
Next 
Set fsOut = Nothing 
Set fso = Nothing 
end Sub 
Sub ShowSubFolders (Folder,fname) 
On Error Resume Next  
For Each Subfolder in Folder.SubFolders 
Call OutputFolderInfo(Subfolder.Path,fname) 
Wscript.Echo Subfolder.Path 
call ShowSubFolders (Subfolder,fname) 
Next 
End Sub 
点击复制整个脚本

ADManager Plus

要获取报告，

  • 从 NTFS permissions 报告中选择 Permissions for folders。
  • 选择域和 OU。
  • 在“Shared Resource path”字段中选择文件夹，并从下拉列表中选择文件夹权限级别。点击 Generate。

截图

使用 ADManager Plus 检查文件夹权限
 

» 开始 30 天免费试用

使用 Windows PowerShell 等本地工具获取服务器上用户共享权限报告的限制如下：

  • 脚本中应提供准确的 ParentFolder 名称。
  • 运行此脚本的用户应具有读取文件夹权限的权限。
  • 对于子文件夹，必须明确指定需要权限的层级数。
  • 该脚本无法检索帐户的自定义权限。
  • 需要处理 DACL 以获取访问类型（Allow/ Deny）和 Applies to 字段。
  • 以其他格式获取报告存在困难。

ADManager Plus 提供通过 AD 报告中 NTFS Permissions 中的 permissions for folders 部分识别文件夹、子文件夹及相应权限的选项。

通过专用报告全面控制 NTFS 权限和文件共享。

  获取 30 天免费试用。

开始您的 无脚本 AD 管理，报告和 自动化之旅 使用 ADManager Plus。

  •  
     
  • 提交即表示您同意根据 隐私政策 处理个人数据。

谢谢

您的下载将在 15 秒内自动开始。如未开始，点击此处手动下载。

相关 Powershell 操作指南：

Active Directory 管理和报告的一站式解决方案

电子邮件下载链接 Email the ADManager Plus download link