Recursive folder search vbscript

Give this a try, it will trap errors on that statement and report them when found and return gracefully from the subroutine for that file.  Seems to allow the rest of the files to be reported on.  Search the output for "*ERROR*" to see the trapped errors.

strcomputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\test"
Set objFolder = objFSO.GetFolder(objStartFolder)
WScript.Echo "Root folder Being Enumerated: " & objFolder.Path & vbcrlf
WScript.Echo "Files Found: " & vbCrLf
Set colFiles = objFolder.Files
For Each objFile In colFiles
    intcount = intcount + 1
    WScript.Echo "   File: " & objFile.Name & vbCrLf
    WScript.Echo "  Permissions: " & vbcrlf
    Call get_Security(objfile, strcomputer)
Next
If intcount = 0 Then
    WScript.Echo "No Files Were Found in " & objstartfolder
End If
intcount = 0
WScript.Echo
WScript.Echo

ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
    For Each Subfolder In Folder.SubFolders
        WScript.Echo "Sub Folder Name: " & Subfolder.Path

        'Get Security for Folder 
        WScript.Echo "Folder Permissions for: " & subfolder.name & vbcrlf
        Call get_Security(subfolder, strcomputer)

        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile In colFiles
            IntCountFile = intCountFile + 1
            WScript.Echo "File Permissons for: " & objFile.Name
            Call get_Security(objfile, strcomputer)
        Next

        If intCountFile = 0 Then
            WScript.Echo "Files: "
            WScript.Echo subfolder & " Has Zero Files " & vbCrLf & vbcrlf
        End If
        intCountFile = 0

        ShowSubFolders Subfolder
    Next
End Sub


Sub get_Security(FolderFileValue, strcomputer)

    On Error Resume Next

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objFile = objWMIService.Get("Win32_LogicalFileSecuritySetting='" & FolderFileValue & "'")
    If Err.Number <> 0 Then 
        Wscript.Echo "*ERROR* Err.Number & " - " & Err.Description & " - on file : " & FolderFileValue
        On Error Goto 0
        Exit Sub 
    End If

    On Error Goto 0

    If objFile.GetSecurityDescriptor(objSD) = 0 Then
        WScript.Echo
        Wscript.Echo "Owner: " & objSD.Owner.Name
        Wscript.Echo
        For Each objAce In objSD.DACL
            Wscript.Echo "Trustee: " & objAce.Trustee.Domain & "\" & objAce.Trustee.Name
            If objAce.AceType = 0 Then
                strAceType = "Allowed"
            Else
                strAceType = "Denied"
            End If
            Wscript.Echo "Ace Type: " & strAceType
            Wscript.Echo "Ace Flags:"
            If objAce.AceFlags And 1 Then
                Wscript.Echo vbTab & "Child objects that are not containers inherit permissions."
            End If
            If objAce.AceFlags And 2 Then
                Wscript.Echo vbTab & "Child objects inherit and pass on permissions."
            End If
            If objAce.AceFlags And 4 Then
                Wscript.Echo vbTab & "Child objects inherit but do not pass on permissions."
            End If
            If objAce.AceFlags And 8 Then
                Wscript.Echo vbTab & "Object is not affected by but passes on permissions."
            End If
            If objAce.AceFlags And 16 Then
                Wscript.Echo vbTab & "Permissions have been inherited."
            End If
            Wscript.Echo "Access Masks:"
            If objAce.AccessMask And 1048576 Then
                Wscript.Echo vbtab & "Synchronize"
            End If
            If objAce.AccessMask And 524288 Then
                Wscript.Echo vbtab & "Write owner"
            End If
            If objAce.AccessMask And 262144 Then
                Wscript.Echo vbtab & "Write ACL"
            End If
            If objAce.AccessMask And 131072 Then
                Wscript.Echo vbtab & "Read security"
            End If
            If objAce.AccessMask And 65536 Then
                Wscript.Echo vbtab & "Delete"
            End If
            If objAce.AccessMask And 256 Then
                Wscript.Echo vbtab & "Write attributes"
            End If
            If objAce.AccessMask And 128 Then
                Wscript.Echo vbtab & "Read attributes"
            End If
            If objAce.AccessMask And 64 Then
                Wscript.Echo vbtab & "Delete dir"
            End If
            If objAce.AccessMask And 32 Then
                Wscript.Echo vbtab & "Execute"
            End If
            If objAce.AccessMask And 16 Then
                Wscript.Echo vbtab & "Write extended attributes"
            End If
            If objAce.AccessMask And 8 Then
                Wscript.Echo vbtab & "Read extended attributes"
            End If
            If objAce.AccessMask And 4 Then
                Wscript.Echo vbtab & "Append"
            End If
            If objAce.AccessMask And 2 Then
                Wscript.Echo vbtab & "Write"
            End If
            If objAce.AccessMask And 1 Then
                Wscript.Echo vbtab & "Read"
            End If
            Wscript.Echo
            Wscript.Echo
        Next
    End If

End Sub

Select all Open in new window

~bp