While , IF Problem

subzero007

Hey,

habe ein ekleines Problem mit meiner While Schleife,
Kann mir jemand sagen was ich falsch mache?

[autoit]

Local $line
;
While 1
If FileExists('\\server\share\' & $ListViewText[1] & '.log') Then
$line = FileRead('\\server\share\' & $ListViewText[1] & '.log')
If StringInStr ($line, "Flag") Then
MsgBox (0,"","String in Log vorhanden")
Else
MsgBox (0,"","String in log nicht vorhanden")
ExitLoop
ElseIf Ping($ListViewText[1], 1) ; Host anpingen
If not @error Then RegRead("\\" & $ListViewText[1] & "\HKEY_LOCAL_MACHINE\SOFTWARE\xxx\Flag", "ProductName")
if @error = 0 then
MsgBox (0,"", "Flag eintrag x32 vorhanden")
ExitLoop
ElseIf Ping($ListViewText[1], 1) ; Host anpingen
If not @error Then RegRead("\\" & $ListViewText[1] & "\HKEY_LOCAL_MACHINE\SOFTWARE\WoW64\xxx\Flag", "ProductName")
if @error = 0 then
MsgBox (0,"", "Flag eintrag x64 vorhanden")
ExitLoop

EndIf
If @error Then ExitLoop
Wend

[/autoit][autoit][/autoit][autoit][/autoit]

Gruß
SubZero

**funkey**

Da sind massig Fehler drin!!
Am wichtigsten ist, dass auch bei ElseIf ein Then benötigt wird! Außerdem fehlen EndIf.

war10ck

Es fehlen masenweise Endifs!!!

**Andy**

Hallo,
ELSEIF´s waren in deinem Script nicht nötig.

Spoiler anzeigen

[autoit]

Local $line
Dim $ListViewText[2] = [1, "HOST"]

[/autoit] [autoit][/autoit] [autoit]

;
While 1
If FileExists('\\server\share\' & $ListViewText[1] & '.log') Then
$line = FileRead('\\server\share\' & $ListViewText[1] & '.log')
If StringInStr($line, "Flag") Then
MsgBox(0, "", "String in Log vorhanden")
Else
MsgBox(0, "", "String in Swscan nicht vorhanden")
ExitLoop
EndIf
Else
Ping($ListViewText[1], 1) ; Host anpingen
If @error Then
MsgBox(0, 0, "Ping auf " & $ListViewText[1] & " nicht erfolgreich!")
ExitLoop
Else
RegRead("\\" & $ListViewText[1] & "\HKEY_LOCAL_MACHINE\SOFTWARE\xxx\Flag", "ProductName")
If @error = 0 Then
MsgBox(0, "", "Flag eintrag x32 vorhanden")
ExitLoop
Else
RegRead("\\" & $ListViewText[1] & "\HKEY_LOCAL_MACHINE\SOFTWARE\WoW64\xxx\Flag", "ProductName")
If @error = 0 Then
MsgBox(0, "", "Flag eintrag x64 vorhanden")
ExitLoop
EndIf
EndIf
EndIf
EndIf
WEnd

[/autoit]

Es ist generell in solchen Fällen sinnvoll, sich mit einigen Strichen einen kurzen Ablaufplan aufzuzeichnen bzw. mit eigenen Worten aufzuschreiben, und diesen dann GENAU so umzusetzen^^
Also:

Code

Endlosschleife:
Wenn file existiert, dann 
      lies das File und reagiere auf inhalt
ansonsten
    pinge Rechner an
    Wenn fehler beim ping, dann
       Nachricht und raus aus der endlosschleife
    ansonsten
      Registry lesen 32 bit
     Wenn Registry 32 bit dann 
       nachricht 32 bit und raus aus der endlosschleife
     ansonsten
       registry lesen 64 bit
      Wenn Registry 64 bit dann 
       nachricht 64 bit und raus aus der endlosschleife
Endlosschleife LOOP

Alles anzeigen

ciao
Andy

ps: Wenn du mit Scite arbeitest, zwischendurch ab und zu mal CTRL+t drücken oder bei Tools den Tidy anwerfen....

subzero007

Hey,

was mache ich falsch meine func _reg() springt nicht an ???

[autoit]

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <array.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

GUICreate('Shutdown-Tool', 900, 700)
$hListView = GUICtrlCreateListView('AD Computer', 10, 190, 210, 450)
GUICtrlSendMsg($hListView, $LVM_SETCOLUMNWIDTH, 0, 200) ; setzt die erste Spalte des Listviews auf 560 Pixel Breite
$hListViewon = GUICtrlCreateListView('Online Computer', 230, 190, 210, 450)
GUICtrlSendMsg($hListViewon, $LVM_SETCOLUMNWIDTH, 0, 200) ; setzt die erste Spalte des Listviews auf 560 Pixel Breite
$hListViewflag = GUICtrlCreateListView('No Shutdown Flag|error', 450, 190, 210, 450)
;GUICtrlSendMsg($hListViewflag, $LVM_SETCOLUMNWIDTH, 0, 200) ; setzt die erste Spalte des Listviews auf 560 Pixel Breite
$hListViewSH = GUICtrlCreateListView('Shutdown|error', 670, 190, 210, 450)
;GUICtrlSendMsg($hListViewSH, $LVM_SETCOLUMNWIDTH, 0, 200) ; setzt die erste Spalte des Listviews auf 560 Pixel Breite

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$hButton = GUICtrlCreateButton('AD Auslesen', 10, 650, 80, 20)
GUISetState()
$countAD = GUICtrlCreateLabel("", 170, 170, 65, 25)
$countON = GUICtrlCreateLabel("", 390, 170, 65, 25)
$countflag = GUICtrlCreateLabel("", 610, 170, 65, 25)
$countsh = GUICtrlCreateLabel("", 840, 170, 65, 25)

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hButton
;RunWait(@ComSpec & " /c " & 'F:\autoit\entwicklung\admin_tool\tools\gruppen.cmd', "", @SW_HIDE)
NewItems1()
_pingall()
EndSwitch
WEnd