pass value to the cacls command

[tm4cncrn]

I am trying to pass values to the cacls command.  Here is what i am doing:

I have a DIM statement

DIM $casedir

DIM $casedir1

$casedir = "servernamesharedir1dir2"

$casedir1 = "Testing"

I prompt the user for an $answer.  They fill out the prompt and i create they dir with this

DirCreate($casedir & $answer & "" & $casedir1)

The answer provides me the ability to create a unique directory name after dir2.

What i would like to do is $casedir $answer $casedir1 and take the values and insert them into the cacls command so i can answer a specific group full control rights to the testing dir.

here is my attempt:

run (cacls.exe($casedir "" $answer "" $casedir27) /E /C /T /G "domainnamelegalassistants":F)

any help would be awesome.

Thanks

Bob

 

[water]

If Cacls.exe is in the same directory as your script then try:

Run("cacls.exe " & $casedir & "\" & $answer & "\" $casedir27 & " /E /C /T /G domainname\legalassistants:F")

[tm4cncrn]

received error in expression after using this line:

Run("cacls.exe " & $casedir & "" & $answer & "" $casedir27 & " /E /C /T /G domainnamelegalassistants:F")

[FireFox]

received error in expression after using this line:

 

Run("cacls.exe " & $casedir & "" & $answer & "" $casedir27 & " /E /C /T /G domainnamelegalassistants:F")

Please use autoit code tags to post your code.

There is a missing & before $casedir27.

Br, FireFox.

[water]

Oops, sorry, my fault

[tm4cncrn]

I receive no errors but, its not applying the permissions.   How would i pause the window so i can see the error?

Thanks again

Bob

[FireFox]

Take a look at the StderrRead or StdoutRead functions. (beware of the run parameters to retrieve the standard outputs).

Br, FireFoX.

Edited September 27, 2013 by FireFox

[water]

Try:

Run(@ComSpec & " /k " & "cacls.exe " & $casedir & "\" & $answer & "\" & $casedir27 & " /E /C /T /G domainname\legalassistants:F"')

[JLogan3o13]

Hi, tm4cncrn. Below is a snippet I used for a helpesk customer, so they could delegate folks to set NTFS permissions. You may not need all of it, but shows you a working method for running CACLS with params:

$UID = InputBox("Grant Access", "Enter the user ID")
$dir = InputBox("Directory", "UNC path to parent directory")
$perm = InputBox("Level of Access", "Enter the level of Access: C(hange), F(ull control), R(ead only), W(rite)")

While 1
        $dir2 = FileSelectFolder("Choose a folder.", $dir, 1)
        RunWait( 'CACLS "' & $dir2 & '" /E /G ' & $UID & ':' & $perm, "", @SW_HIDE )
        $ok = MsgBox(4, "Complete", "Would you like to specify another directory?")
            If $ok = 7 Then ExitLoop
    WEnd

MsgBox(0, "Access Granted", "Access has been granted to the specified directories.")

[tm4cncrn]

i had to switch to icacls and now i am getting a message invalid parameter "&".  I used this:

(

Run(@ComSpec & " /k " & '"icacls.exe " & $casedir & "\" & $answer & "\" & $casedir27 & " /grant legalassistants:(OI)(CI)M"')  

 

 

thanks

bob

[water]

Can you please post the complete output from the SciTE console pane?

[BrewManNH]

You're mixing up the quotes in that run command. You have the whole string starting from icacls inside single quotes, all the way to the end of the string.

[tm4cncrn]

;Places the input box in the top left corner displaying the characters as they
;are typed.
DIM $casedir
DIM $casedir27
 
$casedir = "\\server\users\dir\user\"
$casedir27 = "Legal Assistant Work Product"
 
MsgBox(4096, "Case Directory Verification", "Please verify that the Case Directory you want to create DOES NOT exist!  You will receive a window containing the Cases Folder, please verify the folder does not exist.  Click OK to continue.")
Run ('explorer.exe \\server\users\dir\user')
sleep (5000)
$answer = MsgBox(4, "Case Directory Verification", "DOES THE CASE FOLDER EXIST?")
If $answer = 6 Then
    MsgBox(0, "Folder Exists", "OK. Folder Already Exists. GoodBye!", 30)
    Exit
EndIf
Local $answer = InputBox("Question", "What is the Case Name and LM Number", "Example: XYZ Corp - LM Number", "", _
         - 1, -1, 0, 0)
; MsgBox(4096, $answer, "This box will time out in 10 seconds", 10)
If FileExists ($casedir & $answer) then
 MsgBox(4096, "Title", "This Case Folder Already Exists, Please Contact Your Helpdesk for Assistance!!", 30)
Else
 DirCreate($casedir & $answer)
  DirCreate($casedir & $answer & "\" & $casedir27)
 
 
 Run(@ComSpec & " /k " & '"icacls.exe " & $casedir & "\" & $answer & "\" & $casedir27 & " /grant legalassistants:(OI)(CI)M"')
 MsgBox(4096, "Title", "The Case Folder Has Been Successfully Created!", 30)
EndIf

[water]

Try:

Run(@ComSpec & " /k " & "icacls.exe " & $casedir & "\" & $answer & "\" & $casedir27 & " /grant legalassistants:(OI)(CI)M")

[tm4cncrn]

im getting there but what happening is if i put a space in the directory name thc icacls command errors out on the space.  So i guess i need to put quotes around something.  would like be a single or double quote around the $casedir and $casedir27?

[water]

To handle spaces in the directory use:

Run(@ComSpec & " /k " & "icacls.exe '" & $casedir & "\" & $answer & "\" & $casedir27 & "' /grant legalassistants:(OI)(CI)M")

[tm4cncrn]

Im still erroring out.  I am receiving this message:

Invalid parameter "bobLegalAssistantDocs

Here's the command:

Run(@ComSpec & " /k " & "icacls.exe '" & $casedir & "\" & $answer & "\" & $casedir27 & "' /grant legalassistants:(OI)(CI)M")

 

$casedir = "serverusersdetbob"

$answer = "Hello Bob"

$casedir27 = "LegalAssistantDocs"

I think i need to use double quotes around the path. 

Please advice!

Thanks

Bob

[BrewManNH]

Try it with this line

Run(@ComSpec & " /k " & "icacls.exe """ & $casedir & "\" & $answer & "\" & $casedir27 & """ /grant legalassistants:(OI)(CI)M")
ConsoleWrite("icacls.exe """ & $casedir & "\" & $answer & "\" & $casedir27 & """ /grant legalassistants:(OI)(CI)M" & @crlf & '>Error code: ' & @error & @crlf)

You'll see by the consolewrite that the path now has double quotes around it.

[tm4cncrn]

Thank you.  Worked great.