Carles
Sat May 28 19:37:25 CDT 2005
Jon Paskett wrote:
>
> I need to create a Scripts folder in the Program Files directory and set the
> permissions to that scripts directory to give users Modify permissions.
You might try:
Dim WshShell, PrFi, MyFolder, fso, fldr, perms
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
MyFolder="0Test"
perms="All:C"
PrFi=WshShell.RegRead("HKLM\" &_
"SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
MyFolder = PrFi & "\" & MyFolder
Set fldr = fso.CreateFolder(MyFolder)
WshShell.Run "cmd /c echo y|cacls " & """" & Myfolder & """" &_
" /P " & perms, 0
WScript.Echo MyFolder & " persissions set to " & perms
PS: Please, don't send lines longer than 70 characters.
See
http://www.webworker.com/reports/report.netiquette.html
--
Regards,
Carles Arjona nospammer@bigfoot.com ( nospammer IS my real username )