ICACLS: Ich finde den Fehler einfach nicht

Sirius

Hallo zusammen.

Ich habe 2 Sachen Programmiert, der erste Block funktioniert und der zweite nicht! Ich finde den Fehler nicht, obwohl alles korrekt in der MSGBox und _ArrayDisplay angezeigt wird.

Vielleicht kann mir einer von Euch sagen, was nicht stimmt.

Es geht um die beiden Blöcke wo ich mit ICACLS die Rechte auf Ordner vergeben möchte. Der erste Block mit (Zeile 12 bis 20) funzt und der zweite mit Block (Zeile 23 bis 30) funktioniert nicht.

Vielen Dank!!

Gruß

Sirius

Spoiler anzeigen

AutoIt

Case $Button1; Objekt anlegen
            Local $Objektnr = GUICtrlRead($Input1)
            Local $Bezeichnung = GUICtrlRead($Input2)
            Local $Ort = GUICtrlRead($Input3)
			If (FileExists ($sPathO & "\" & $Objektnr & " " & "*" & ", " & "*")) Or ($Objektnr <= 0) Or ($Bezeichnung = '') Or ($Ort = '') Then
                MsgBox(16, "Fehler!", "Entweder das Objekt wurde bereits angelegt, oder die Felder Objektnummer, Objektbezeichnung und/oder Ort ist leer!")
            Else
                DirCreate($sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort)
                DirCopy(@ScriptDir & "\Strukturvorlagen\Objektvorlage", $sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort & "\", 1)


				
				$OAWPath = ($sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort & "\" & "02 Wartungen" & "\")
				;MsgBox(0,"",$OAWPath)
				$OAWList = _FileListToArray($OAWPath)
				;_ArrayDisplay($OAWList)
				For $i = 1 To $OAWList[4]
					Run('"' & @ComSpec & '" /c ICACLS "' & $OAWPath & $OAWList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
					Run('"' & @ComSpec & '" /c ICACLS "' & $OAWPath & $OAWList[$i] & '" /grant:r Innendienst:(OI)(CI)(IO)(F) /T', '', @SW_HIDE)

				Next



				$OASCHPath = ($sPathO & "\" & $Objektnr & " " & $Bezeichnung & "," & " " & $Ort & "\" & "03 Schriftverkehr" & "\")
				MsgBox(0,"",$OASCHPath)
				$OASCHList = _FileListToArray($OASCHPath)
				_ArrayDisplay($OASCHList)
				For $i = 1 To $OASCHList[26]
					Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
					Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(OI)(CI)(IO)(F) /T', '', @SW_HIDE)
				Next




                MsgBox(64, "Objekt", "Das Objekt wurde erfolgreich angelegt!")
				_GUICtrlComboBox_ResetContent($hCombo1)
				_GUICtrlComboBox_ResetContent($hCombo2)
				_GUICtrlComboBox_ResetContent($hCombo4)
				aktualisieren()
            EndIf

Alles anzeigen

**Bitnugger**

Seitens AutoIt scheint dann ja alles ok zu sein und der Fehler tritt womöglich bei ICACLS auf, von dem du, weil du es mit Run() startest, keinen 'exit code' bekommst.

Ich würde aber in jedem Fall wissen wollen ob der Befehl ohne Fehler ausgeführt wurde... und daher den Befehl mit RunWait() starten...

Local $iError = RunWait('"' & @ComSpec & '" /c ICACLS "' & $OAWPath & $OAWList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
If $iError <> 0 Then ...

Sirius

Hi Bitnugger,

ich hab das mal getestet. Es wird weder beim 1. noch beim 2. Block ein Fehler angezeigt. Zudem der 1. Block ja auch komplett funktioniert!

Hast du sonst noch eine Idee?

Gruß

Sirius

Sirius

Ich hab noch was anderes versucht.

Local $iError = RunWait('"' & @ComSpec & '" /c ICACLS "' & $OAWPath & $OAWList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
MsgBox(0, "Programm gab folgenden Exitcode zurück:", $iError)

Komisch ist, dass er 0 (Fehler) ausgibt, aber der Befehl korrekt ausgeführt wurde. Also die Berechtigungen wurde genau so gesetzt wie im Script befohlen!

Und nun?

Gruß
Sirius

Sirius

So... ich bin einen Schritt weiter!

Irgendwas funktioniert mit der For-Schleife nicht!

For $i = 1 To $OASCHList[26]
Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(S,RD,WD,AD,REA,X,RA) /T', '', @SW_HIDE)
Run('"' & @ComSpec & '" /c ICACLS "' & $OASCHPath & $OASCHList[$i] & '" /grant:r Innendienst:(OI)(CI)(IO)(F) /T', '', @SW_HIDE)
Next

Ich finde den Fehler aber nicht, weil wenn ich den Array mit _ArrayDisplay anzeigen lasse, dann zeigt er mir ja an, wie viele Ordner sich in dem Ordner befinden.

Der gleiche Code auf anderen Ordnern funktioniert, nur da nicht.

RATLOS!

Sirius

Wenn es jemanden interessiert! Ich habe den Fehler gefunden

Ich habe einfach folgendes verändert:

For $i = 1 To $OASCHList[26]

in

For $i = 1 To $OASCHList[0]

Gruß
Sirius

**Bitnugger**

$iError liefert dir den 'exit code' von @ComSpec bzw. ICACLS zurück - und wenn die Heinzelmännchen es nicht geändert haben, bedeutet 0 (%ERRORLEVEL% = 0) immer noch, dass KEIN Fehler aufgetreten ist.

Bash

ICACLS ...


if %ERRORLEVEL% EQU 0 @echo Alles easy gelaufen!

RunWait
Return Value

Success:	the exit code of the program that was run.
Failure:	sets the @error flag to non-zero.

...wobei ich allerdings bei RunWait noch nie gesehen habe, dass @error <> 0 ist, obwohl ich den schon sehr oft benutzt habe.

AutoIt

; _RunDos() ==> RunWait() in Kurzform...
#include <Process.au3>
; "m:\ICACLSTESTDIR" und den User "filezilla" gibt es bei mir...
_PrintResult(_RunDos("ICACLS m:\ICACLSTESTDIR /grant:r filezilla:(S,RD,WD,AD,REA,X,RA) /T 2>&1>m:\Run_RESULT.txt"), @ScriptLineNumber)
_PrintResult(_RunDos("ICACLS m:\ICACLSTESTDIR /grant:r filezilla:(OI)(CI)(IO)(F) /T 2>&1>m:\Run_RESULT.txt"), @ScriptLineNumber)
Func _PrintResult($iRc, $iScriptLineNumber, $iError = @error, $iExtend = @extended)
    Local $aRESULT = FileReadToArray("m:\Run_RESULT.txt")
    FileDelete("m:\Run_RESULT.txt")
    ConsoleWrite("! ScriptLineNumber: " & $iScriptLineNumber & @TAB & "ICACLS exit code: " & $iRc & @TAB & "#Error: " & $iError & @TAB & "#Extended: " & $iExtend & @CRLF)
    For $i = 0 To UBound($aRESULT) -1
        ConsoleWrite("> " & $aRESULT[$i] & @CRLF)
    Next
    ConsoleWrite(@CRLF)
EndFunc

Alles anzeigen

Ausgabe:

--> Press Ctrl+Alt+F5 to Restart or Ctrl+Break to Stop
! ScriptLineNumber: 12 ICACLS exit code: 0 #Error: 0 #Extended: 0
> Bearbeitete Datei: m:\ICACLSTESTDIR
> 1 Dateien erfolgreich verarbeitet, bei 0 Dateien ist ein Verarbeitungsfehler aufgetreten.

! ScriptLineNumber: 13 ICACLS exit code: 0 #Error: 0 #Extended: 0
> Bearbeitete Datei: m:\ICACLSTESTDIR
> 1 Dateien erfolgreich verarbeitet, bei 0 Dateien ist ein Verarbeitungsfehler aufgetreten.

+>17:08:27 AutoIt3.exe ended.rc:0

Nachtrag:

Zitat von Sirius

For $i = 1 To $OASCHList[26]

Feste Werte zu verwenden, um ein Array auszulesen, ist i.d.R. eh unfein... aber ich dachte mir, das macht er, weil er ganz sicher ist, dass die Größe des Arrays konstant ist.

Wenn kein Zähler in $Array[0] ist, mache ich es mit UBound($Array)