Laufwerke verbinden - Fenster friert bei Fehler ein.

oliver4friends

Hallo,

Ich arbeite an einem Tool, mit dem man ganz einfach ein Laufwerk verbinden kann. Das Tool authenfifiziert sich über das Windows integrierte Authentifizierungs-Fenster.

Das Tool ist sogut wie fertig. Es funktioniert auch alles, solange kein Fehler auftaucht. Genau gesagt:

wenn ein Pfad aus igendeinem Grund nicht erreichbar ist
Laufwerksbuchstabe nicht getrennt werden kann, da er schon belegt ist, oder wenn etwa gerade "bussy" ist.

Es wäre super, wenn er bei einem Event $drvCallError diesen rausschreibt und abbricht. Bei einem Fehler friert das Fenster momentan einfach ein.

Danke für die Hilfe!

C

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>


Dim Const $ilog = @TempDir & "\LWlog.txt"
Dim Const $drvCallError = @error


; Hauptfenster
$maindlg = GUICreate("Laufwerke verbinden", 750, 500)
$eventmng = GUICtrlCreateLabel("", 10, 10+250, 704,  160)
$btn_start = GUICtrlCreateButton("Start", 10, 430, 84, 20)




Dim $aServers[6][5] ; Drive|Server|Kommentar
	$aServers[0][0] = 4
$aServers[1][0] = '\\server1\freigabe'
$aServers[2][0] = '\\server2\freigabe'
$aServers[3][0] = '\\server3\freigabe'
$aServers[4][0] = '\\server4\freigabe'
$aServers[1][2] = 'I:'
$aServers[2][2] = 'J:'
$aServers[3][2] = 'K:'
$aServers[4][2] = 'L:'
$aServers[1][3] = 'Standard Laufwerk 1'
$aServers[2][3] = 'Standard Laufwerk 2'
$aServers[3][3] = 'Standard Laufwerk 3'
$aServers[4][3] = 'Standard Laufwerk 4'


$gServers = GUICtrlCreateListView('Drive|Server|Kommentar', 10, 15, 740, 200, Default, BitOR($LVS_EX_CHECKBOXES, $WS_VSCROLL))
_GUICtrlListView_SetColumnWidth($gServers, 1, 200)
_GUICtrlListView_SetColumnWidth($gServers, 2, 360)


For $i = 1 To $aServers[0][0]
	$aServers[$i][1] = GUICtrlCreateListViewItem($aServers[$i][2] & '|' & $aServers[$i][0] & '|' & $aServers[$i][3], $gServers)
Next


GUISetState()


Func _laufwerke()
			        For $i=1 To $aServers[0][0]
               If BitAND(GUICtrlRead($aServers[$i][1],1),$GUI_CHECKED) Then


							; Output
							$iText = "Das Laufwerk " & $aServers[$i][2] & " wird nun getrennt!" & @CRLF & ""
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)


					$drvcall = DriveMapDel($aServers[$i][2])


						  Sleep (3000)


							; Output
							$iText = "Das Laufwerk " & $aServers[$i][2] & " wird verbunden. Bitte warten...." & @CRLF & ""
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)


					$drvcall = DriveMapAdd($aServers[$i][2], $aServers[$i][0], $DMA_AUTHENTICATION + $DMA_PERSISTENT)
					Do
						Sleep(5)


					Until DriveStatus($aServers[$i][2]) = "READY"
				EndIf
					Next




					If $drvcall = 1 Then


							; Output
							$iText = "Das Laufwerk " & $aServers[$i][2] & " wurde verbunden." & @CRLF & ""
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)


					EndIf


; Error Codes
				Switch $drvCallError
				Case "1"
							; Output
							$iText = "API Error Code" & @extended
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
				Case "2"
							; Output
							$iText = "access denied Error"
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
				Case "3"
							; Output
							$iText = "Device already mapped"
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
				Case "4"
							; Output
							$iText = "Invalid Device Name"
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
				Case "5"
							; Output
							$iText = "Invalid remote share"
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
				Case "6"
							; Output
							$iText = "Invalid Password"
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
			EndSwitch


EndFunc


While 1
	$nMsg = GUIGetMsg(1)
	Switch $nMsg[0]
		Case $GUI_EVENT_CLOSE
			Switch $nMsg[1]
				Case $maindlg
					Exit
				Case Else
					GUISetState(@SW_SHOW, $maindlg)
					GUISetState(@SW_HIDE, $nMsg[1])
					GUISwitch($maindlg)
			EndSwitch




		Case $btn_start;
		FileDelete($ilog) ; Output Log wird gelöscht
		_laufwerke()




  EndSwitch
WEnd
Exit

Alles anzeigen

**alpines**

Zitat von oliver4friends

Dim Const $drvCallError = @error

Ich weiß nicht was diese Zeile bringen soll, aber sie ist absolut unnütz.

Du musst wissen, das @error (wenn es überhaupt gesetzt wird), immer nach einer Funktion direkt abgefragt werden muss.
@error wird nämlich beim Auruf JEDER neuen Funktion direkt überschrieben und der Wert ist somit ungültig. Die Variable als Konstante zu deklarieren ist obendrein noch ein weiterer Fehler.

Also merke: Wenn du mit @error arbeiten willst, speichere den Wert nach der Ausführung der Funktion,
die @error schmeißt (Achtung beim Funktionen verketten), in eine Variable um den Fehler im Nachhinein zu bearbeiten.

Außerdem stehen in @error Zahlen drinne also solltest du den Vergleich mit "1" oder "2" lassen, da das nach hinten losgehen kann.

oliver4friends

Danke für die Antwort. Wenn ich das richtig verstehe wird zuerst die Funktion (fertig) ausgeführt, und erst danach kann ich das @error abfragen.

Ich habe mir bereits überlegt, vor der Funktion mit den Laufwerken bestimmte Prüfungen einzubauen.

Ist der Pfad bereits vorhanden = Laufwerk schon eingebunden
Ist der Laufwerksbuchstabe schon belegt, wird es verwendet?
Kann der Servername - DNS aufgelöst werden.
Ist der Authentifizierungsserver erreichbar?

Die kompletten Errorcodes könnte ich dann ja rausnehmen, weil ich die Fehler im Vorfeld schon ausschließe. Zudem könnte ich die Schleife irgendwie so begrenzen. Ich möchte keine Fenster haben die einfrieren.

Code

DO
Until DriveStatus($aServers[$i][2]) = "READY" OR $i=10

Würde das einer Lösung näher bringen?

**alpines**

Zitat von oliver4friends

Wenn ich das richtig verstehe wird zuerst die Funktion (fertig) ausgeführt, und erst danach kann ich das @error abfragen.

Richtig. Sobald du eine neue Funktion ausführst wird der Error-Wert resettet.
Wo genau schmiert dein Script denn ab?

oliver4friends

Danke für die Antwort. Ich werde das Script umbauen und ein Feedback geben.
Das Fenster friert ein, wenn er die Funktion nicht bis zum Ende durchlaufen kann, da er auf "READY" vom Laufwerk wartet. Wie zum Beispiel jetzt mit dem \\server1\freigabe - Server klarerweise nicht vorhanden.

oliver4friends

Es funktioniert!

Anbei der neue Code:

C

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GUIConstants.au3>
Dim Const $ilog = @TempDir & "\LWlog.txt"
;~ Dim Const $drvCallError = @error
; Hauptfenster
$maindlg = GUICreate("Laufwerke verbinden", 750, 500)
$eventmng = GUICtrlCreateLabel("", 10, 10+250, 704,  160)
$btn_start = GUICtrlCreateButton("Start", 10, 430, 84, 20)


Dim $aServers[6][5] ; Drive|Server|Kommentar
	$aServers[0][0] = 4
$aServers[1][0] = '\\dbserv02\cmpusr'
$aServers[2][0] = '\\server2\freigabe'
$aServers[3][0] = '\\server3\freigabe'
$aServers[4][0] = '\\server4\freigabe'
$aServers[1][2] = 'I:'
$aServers[2][2] = 'J:'
$aServers[3][2] = 'K:'
$aServers[4][2] = 'L:'
$aServers[1][3] = 'Standard Laufwerk 1'
$aServers[2][3] = 'Standard Laufwerk 2'
$aServers[3][3] = 'Standard Laufwerk 3'
$aServers[4][3] = 'Standard Laufwerk 4'
$gServers = GUICtrlCreateListView('Drive|Server|Kommentar', 10, 15, 740, 200, Default, BitOR($LVS_EX_CHECKBOXES, $WS_VSCROLL))
_GUICtrlListView_SetColumnWidth($gServers, 1, 200)
_GUICtrlListView_SetColumnWidth($gServers, 2, 360)
For $i = 1 To $aServers[0][0]
	$aServers[$i][1] = GUICtrlCreateListViewItem($aServers[$i][2] & '|' & $aServers[$i][0] & '|' & $aServers[$i][3], $gServers)
Next
GUISetState()
Func _laufwerke()
			        For $i=1 To $aServers[0][0]
               If BitAND(GUICtrlRead($aServers[$i][1],1),$GUI_CHECKED) Then
							; Output
							$iText = "Das Laufwerk " & $aServers[$i][2] & " wird nun getrennt!" & @CRLF & ""
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
					DriveMapDel($aServers[$i][2])
						  Sleep (3000)
							; Output
							$iText = "Das Laufwerk " & $aServers[$i][2] & " wird verbunden. Bitte warten.... Dieser Vorgang kann bis zu 2 Minuten dauern." & @CRLF & ""
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
							DriveMapAdd($aServers[$i][2], $aServers[$i][0], $DMA_AUTHENTICATION + $DMA_PERSISTENT)
					Do
						Sleep(5)


					Until DriveStatus($aServers[$i][2]) = "READY" OR DriveStatus($aServers[$i][2]) = "INVALID"


					If Fileexists($aServers[$i][2]) then
							; Output
							$iText = "Das Laufwerk " & $aServers[$i][2] & " wurde verbunden." & @CRLF & ""
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
						Else
							; Output
							$iText = "Das Laufwerk wurde nicht verbunden. Bitte kontaktiere deinen Administrator."
							FileWrite($ilog, $iText)
							$_FILE_Open = $ilog
							$_FILE_ReadFile = FileRead($_FILE_Open)
							GUICtrlSetData($eventmng, $_FILE_ReadFile)
						EndIf




				EndIf
					Next


EndFunc


While 1
	$nMsg = GUIGetMsg(1)
	Switch $nMsg[0]
		Case $GUI_EVENT_CLOSE
			Switch $nMsg[1]
				Case $maindlg
					Exit
				Case Else
					GUISetState(@SW_SHOW, $maindlg)
					GUISetState(@SW_HIDE, $nMsg[1])
					GUISwitch($maindlg)
			EndSwitch
		Case $btn_start;
		FileDelete($ilog) ; Output Log wird gelöscht
		_laufwerke()
  EndSwitch
WEnd
Exit

Alles anzeigen

**alpines**

Super, dass es klappt. Hast auch vorbildlich den grünen Haken gesetzt!

Aber noch eine kleine Bemerkung zum alten Code:

Zitat von oliver4friends

Sleep(5)

In AutoIt kannst du niemals weniger als 10ms oder 20ms (abhängig vom PC glaube ich) schlafen.