Hallo,
ich habe hier mal meinen eigentlich relativ simplem Programmtext. Leider wird mir jedesmal angezeigt Next with no matching For statement. Wenn ich ein If mit Endif beende läuft das Programm aber nicht richtig.
Func Groupwise($Nutzernamenliste)
Local $i, $Passwort, $error
For $j = 1 To $Passwortanzahl Step 1 ;~Austesten aller eingegebenen Passwörter
$Spaltenposition = $j + 1
;~Passwortzuordnung
If $j = 1 Then
$Passwort = $StdPasw1
MsgBox(1,"Passwort","Initialisiere Passwort 1")
EndIf
If $j = 2 Then
$Passwort = $StdPasw2
MsgBox(1,"Passwort","Initialisiere Passwort 2")
EndIf
If $j = 3 Then
$Passwort = $StdPasw3
MsgBox(1,"Passwort","Initialisiere Passwort 3")
EndIf
MsgBox(1,"Passwortdurchlauf","Nummer" & $j & " Passwort "& $Passwort) ;~Testabfrage
[/autoit][autoit][/autoit][autoit]For $i = 1 To $Zeilengroesse Step 1 ;~Schleife mit Anzahl der Nutzernamen
WinClose("Novell GroupWise - Mailbox")
MsgBox(1,"Nutzernamendurchlauf","Nutzernamendurchlauf "& $i & " "&$Nutzernamenliste[$i][1])
$error = ShellExecute("C:\Novell\GroupWise\grpwise.exe","/@u-"& $Nutzernamenliste[$i][1]) ;~Ausführen von Gorupwise mit Nutzer als Parameter
;~ If $error = 0 Then MsgBox(1,"","")
WinWaitActive("GroupWise-Passwort")
Send($Passwort) ;~Sendet das aktuelle Passwort
Send("{ENTER}")
Sleep(5000)
If WinExists("Novell GroupWise - Mailbox") Then
WinClose("Novell GroupWise - Mailbox")
Sleep(5000)
If WinExists("Dialogfeld") Then
WinClose("Dialogfeld")
Sleep(2000)
MsgBox(1,"Fehlgeschlagen","Fehlgeschlagen")
If WinExists("Novell GroupWise Startup") Then
WinClose("Novell GroupWise Startup")
MsgBox(1,"Error","Error")
EndIf
Next
[/autoit][autoit][/autoit][autoit]Next
[/autoit][autoit][/autoit][autoit][/autoit][autoit]EndFunc
[/autoit]