Huhu an alle,
ich habe da mal wieder ein Problemchen. Bin gerade dabei eine kleine Abfrage zu Programmieren ob ein bestimmter Eventlog auf den Netzwerkcomputern geschrieben wurde. Nun wollte ich noch eine Funktion einbauen, die erst mal den PC anpingen soll, Falls kein Ping vorhanden soll er den nächsten PC scannen. Allerdings dauert mir das zu lange mit der Pingfunktion und wollte mal nachfragen, welche Möglichkeit es da noch gibt.
Spoiler anzeigen
Func _AllePCs()
$listview = GUICtrlCreateListView("PC Nummer | Bericht", 150, 50, 396, 250, 0)
local $pc[28] = ["pc01","PC02","PC03","PC04","PC05","PC06","PC07","PC08","PC09","PC10","PC11","PC12","PC13","PC14","PC15","PC16","PC17","PC18","PC19","PC20","PC21","PC22","PC23","PC24","PC25","PC26","PC27","PC28"]
;local $pc[2]= ["pc19","PC14"]
For $a = 0 to UBound($pc) -1 ;Schleife zum PCs hochzählen
[/autoit] [autoit][/autoit] [autoit]Local $var = Ping($pc[$a], 1)
[/autoit] [autoit][/autoit] [autoit]$EventLog = _EventLog__Open ($pc[$a], "Application")
$EventlogCount = _EventLog__Count ($EventLog)
$search = 0
If $var Then
For $i = 1 to $EventlogCount
$Eventread = _EventLog__Read($EventLog, True, False)
$search = $search +1
GUICtrlSetData($Progress1, ($search * 100 ) / $EventlogCount)
If $Eventread[10] = "MyDefrag wurde geXt " Then
GUICtrlSetData($Progress1, $EventlogCount)
GUICtrlCreateListViewItem($pc[$a] & "| MyDefrag wurde beendet", $ListView)
EndIf
Next
Else
EndIf
Next
[/autoit] [autoit][/autoit] [autoit]_EventLog__Close ($EventLog)
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Wäre super wenn ich ein paar Tips bekommen könnte.
LG Susie