need vbscript to pull explicit assigned permission on folder which are not inherited

[vivekmohan]

hi everyone ,

i need a script which list me ACL enteries whose permission are explicitly assigned and not inherited is there anyway in which i can do that, how can i get that,

i am having folder in C:\ drive named AAA whose inheritance permission are disabled to the child folder ,i am creating folder named BBB under AAA and i am adding explicit permissions to one of the user (eg:vivek) to BBB folder when i look at the Advanced setting of the folder security permission i will get the following on ACL entries list

Type: Name: Permission: inheritedfrom: Applyto:

Allow vivek.M FullControl <not inherited> this folder ,subFolder,files

Allow System FullControl C:\AAA this folder ,subFolder,files


i need to pull or get only the first line of result whose inheritedfrom: are <not inherited>

important vivek.m is explicty assigned to the particular folder by using ADD fuction on Advance security tab


how can i get reply me............

[Jkbaseball]

To set folder permissions in VBScript

'This script will assign Modify/C-Change (write) Permission To Power User on "C:\MyFolder" using cacls on NTFS formatted drive

Dim oShell, FoldPerm, Calcds, oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")

sSysDir = oFSO.GetSpecialFolder(1).Path
If Right(sSysDir,1) <> "\" Then sSysDir = sSysDir & "\"

Calcds = sSysDir & "cacls.exe" 

'Chang The folder Name, User and Access rights in the following line of code  

FoldPerm = """" & Calcds &"""" & """C:\MyFolder""" & " /E /T /C /G " & """Power Users""" & ":C" 

oShell.Run FoldPerm, 1 ,True

Grant Permission

[Xeusion]

Have you tried Windows Management Instrumentation (WMI)
http://msdn.microsoft.com/library/de...itysetting.asp

Please have a look at Microsoft
1. http://support.microsoft.com/default...b;en-us;266461
2. http://support.microsoft.com/default...b;en-us;269159

I hope this helps you.