RE: Create Folder and set permissions via script (fbords)

Wed, 23 Jul 2008 14:37:14 GMT

I'm using a very similar script customized for my needs. The permissions appear to set correctly, however, the intRunError portion keeps displaying it's error. Do you have any idea why? I posted my code here:
http://www.visualbasicscript.com/m_62640/tm.htm

thanks!

RE: Create Folder and set permissions via script (dm_4ever)

Mon, 11 Feb 2008 19:29:52 GMT

Man....talk about a frequently asked question.....

"%COMSPEC% /c Echo Y| cacls " _
& Chr(34) & strDirectory & Chr(34) & " /c /e /g ""LocalAccess"":F "

Create Folder and set permissions via script (r0b3rd)

Mon, 11 Feb 2008 18:43:50 GMT

hello,

I'm trying to create a folder on a local workstation and set permissions of this folder. This is my script:

Option Explicit
Dim objFSO, objFolder, objShell, strDirectory, intRunError, strUser
strDirectory = "c:\test test"

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Note If..Exists. Then, Else ... End If construction
If objFSO.FolderExists(strDirectory) Then
   Set objFolder = objFSO.GetFolder(strDirectory)
   WScript.Echo strDirectory & " already created "
Else
   Set objFolder = objFSO.CreateFolder(strDirectory)
WScript.Echo "Just created " & strDirectory
End If

If err.number = vbEmpty then
   Set objShell = CreateObject("WScript.Shell")
   objShell.run ("Explorer" &" " & strDirectory & "\" )
Else WScript.echo "VBScript Error: " & err.number
End If

If objFSO.FolderExists(strDirectory) Then
' Assign user permission to folder.
   intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " _
   & strDirectory & " /c /e /g ""LocalAccess"":F ", 2, True)
   If intRunError <> 0 Then
      Wscript.Echo "Error assigning permissions to folder " & strDirectory
   End If
End If

WScript.Quit

the script works fine if the folder name doesn't contain any spaces. But i want the script to create a folder in 'Program Files'. The folder creation works fine; the problem is setting the permission. Does anybody know what i am doing wrong here?

THNX ! :)