Modifying NTFS permissions on a folder 1

[alepore]

I am just learning VBScript and I am trying to modify NTFS permissions on a folder. Using c:\test as an example, how would I give domain\joeuser change access to that folder? I thank you in advance for all the help.

 

[PHV]

If you know how to do it in a console window with the

 cacls

command, you can try something like this:

Set Sh=WScript.CreateObject("WScript.Shell")
RC=Sh.Run("cacls YourOptions",1,True)

Hope This Help
PH.

 

[MisterNiceGuy]

I use the adsSecurity.dll that comes in the ADSI SDK for this kind of stuff. Here is a generic example from that kit.

Const ADS_RIGHT_GENERIC_READ = &H80000000
Const ADS_RIGHT_GENERIC_EXECUTE = &H20000000
Const ADS_ACETYPE_ACCESS_ALLOWED = 0

Set sec = CreateObject("ADsSecurity&quot

Set sd = sec.GetSecurityDescriptor("FILE://c:\public\specs&quot
Set dacl = sd.DiscretionaryAcl

'-- Show the ACEs in the DACL ----
For Each ace In dacl
wscript.echo ace.Trustee
wscript.echo ace.AccessMask
wscript.echo ace.AceType
Next

Set ace = CreateObject("AccessControlEntry&quot
ace.Trustee = "ARCADIABAY\jsmith"
ace.AccessMask = ADS_RIGHT_GENERIC_READ Or ADS_RIGHT_GENERIC_EXECUTE
ace.AceType = ADS_ACETYPE_ACCESS_ALLOWED

dacl.AddAce ace
sd.DiscretionaryAcl = dacl
sec.SetSecurityDescriptor sd