I wanted to post an updated script. Again, it still may not be the cleanest code, but it appears to be working as expected. The changes made clean it up a bit and add a column for Denied, Granted, WriteDenied as well as color coding of the rows making it easy to scroll through and notice anything that stands out.
I did generalize a few criteria filters that you will want to update for you environment and this does require folder auditing to be enabled.
Select Distinct Top 1000000 tblAssets.AssetID,
tsysOS.Image As icon,
tblNtlog.TimeGenerated As Time,
SubString(tblNtlogMessage.Message, CharIndex('Account Name:',
tblNtlogMessage.Message) + Len('Account Name:'), CharIndex('Account Domain:',
tblNtlogMessage.Message) - (CharIndex('Account Name:',
tblNtlogMessage.Message) + Len('Account Name:'))) As Account,
SubString(tblNtlogMessage.Message, CharIndex('Object Name:',
tblNtlogMessage.Message) + Len('Object Name:'), CharIndex('Handle ID:',
tblNtlogMessage.Message) - (CharIndex('Object Name:', tblNtlogMessage.Message)
+ Len('Object Name:'))) As Folder,
Case
When tblNtlogMessage.Message Like '%ReadAttributes:%Granted%' And
tblNtlogMessage.Message Like '%WriteAttributes:%Not granted%' Then
'WriteDenied'
When tblNtlog.Eventtype = '5' Then 'Denied'
When tblNtlog.Eventtype = '4' Then 'Granted'
Else 'Unknown'
End As AccessStatus,
Case
When tblNtlogMessage.Message Like '%ReadAttributes:%Granted%' And
tblNtlogMessage.Message Like '%WriteAttributes:%Not granted%' Then
'#FCFFAD'
When tblNtlog.Eventtype = '5' Then '#FFC0C0'
When tblNtlog.Eventtype = '4' Then '#BCFFB6'
End As backgroundcolor
From tblAssets
Inner Join tblAssetCustom On tblAssets.AssetID = tblAssetCustom.AssetID
Inner Join tblNtlog On tblAssets.AssetID = tblNtlog.AssetID
Inner Join tblNtlogMessage On tblNtlogMessage.MessageID = tblNtlog.MessageID
Inner Join tblNtlogSource On tblNtlogSource.SourcenameID =
tblNtlog.SourcenameID
Inner Join tsysOS On tblAssets.OScode = tsysOS.OScode
Inner Join tblNtlogFile On tblNtlogFile.LogfileID = tblNtlog.LogfileID
Where tblNtlog.Eventcode In (4656) And tblNtlogMessage.Message Like
'%X:\FOLDER_LOCATION%' And tblNtlogMessage.Message Not Like '%FILE_SERVER%' And
tblNtlogMessage.Message Not Like '%ADMIN_ACCOUNT%' And
tblNtlogMessage.Message Not Like '%$%' And tblNtlogMessage.Message Not Like
'%.tmp%' And tblAssetCustom.State = 1
Order By Time Desc