Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 316
  • Last Modified:

Retriving a list of permissions based on folder/file

Good morning,
Ive been looking for a while to be able to take a snapshot of one of our server to be able to see what users have access to what files/folders.

I can get a list of all folders and files easily, but does anyone know how I can pass a folder or file into a function and have it return with a list of users/groups and permissions for that folder/file?

Any assistance anyone can provide, would be appriciated.

Thank you
0
tonelm54
Asked:
tonelm54
1 Solution
 
MK1978Commented:
The command that allows this from command prompt is "cacls"

So for checking the permissions for a file:

cacls <filename/path>

this should give you the require information.  Maybe you can incorporate this into your code?
0
 
LTCexpertCommented:
Download the Sysinternals Suite from here.
http://technet.microsoft.com/en-us/sysinternals/bb842062.aspx
There is an exe call AccessEnum which will show you who has access to any directory / Drive ect.

Hope this helps
0
 
Carl TawnSystems and Integration DeveloperCommented:
Well, seeing as you seem to be asking for code rather than links to third-party tools, you could try:
' Add these too
' Imports System.IO
' Imports System.Security.Principal
' Imports System.Security.AccessControl

    Public Sub ListDirectorySecurity(ByVal directoryName As String)

        Dim di As New DirectoryInfo(directoryName)
        Dim security As DirectorySecurity = di.GetAccessControl()

        Dim rules As AuthorizationRuleCollection = security.GetAccessRules(True, True, GetType(NTAccount))
        For Each rule As FileSystemAccessRule In rules

            Console.WriteLine(" User: {0}", rule.IdentityReference)
            Console.WriteLine(" Type: {0}", rule.AccessControlType)
            Console.WriteLine(" Rights: {0}", rule.FileSystemRights)
            Console.WriteLine(" Inheritance: {0}", rule.InheritanceFlags)
            Console.WriteLine(" Propagation: {0}", rule.PropagationFlags)
            Console.WriteLine(" Inherited? {0}", rule.IsInherited)
            Console.WriteLine()

        Next

    End Sub

Open in new window

0
 
tonelm54Author Commented:
Thank you 'carl_tawn', that is exactly what Im looking for.

Ive used your code to also do file security as well, and attached it below, just incase anyone in the future comes across this thread and intrested.

Thank you
Imports System.IO
Imports System.Security.Principal
Imports System.Security.AccessControl



Module Module1

    Sub Main()
        ListDirectorySecurity("u:\Documents")
        ListFileSecurity("U:\Assesment.xls")
    End Sub

    Public Sub ListDirectorySecurity(ByVal directoryName As String)
        Dim di As New DirectoryInfo(directoryName)
        Dim security As DirectorySecurity = di.GetAccessControl()

        Dim rules As AuthorizationRuleCollection = security.GetAccessRules(True, True, GetType(NTAccount))
        For Each rule As FileSystemAccessRule In rules
            Console.WriteLine(" User: {0}", rule.IdentityReference)
            Console.WriteLine(" Type: {0}", rule.AccessControlType)
            Console.WriteLine(" Rights: {0}", rule.FileSystemRights)
            Console.WriteLine(" Inheritance: {0}", rule.InheritanceFlags)
            Console.WriteLine(" Propagation: {0}", rule.PropagationFlags)
            Console.WriteLine(" Inherited? {0}", rule.IsInherited)
            Console.WriteLine()
        Next
    End Sub

    Public Sub ListFileSecurity(ByVal fileName As String)
        Dim di As New FileInfo(fileName)
        Dim security As FileSecurity = di.GetAccessControl()

        Dim rules As AuthorizationRuleCollection = security.GetAccessRules(True, True, GetType(NTAccount))
        For Each rule As FileSystemAccessRule In rules
            Console.WriteLine(" User: {0}", rule.IdentityReference)
            Console.WriteLine(" Type: {0}", rule.AccessControlType)
            Console.WriteLine(" Rights: {0}", rule.FileSystemRights)
            Console.WriteLine(" Inheritance: {0}", rule.InheritanceFlags)
            Console.WriteLine(" Propagation: {0}", rule.PropagationFlags)
            Console.WriteLine(" Inherited? {0}", rule.IsInherited)
            Console.WriteLine()
        Next
    End Sub
End Module

Open in new window

0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now