Beiträge von subzero007

Danke;-)

Mhhh.
es fuktioniert ja soweit mit

[autoit]

_FileWriteFromArray("C:\serverts_out.txt",$aOut,2)

[/autoit]

aber wie kriege ich diesen wert in eine listview?

Danke

Genau das was ich suche und wenn ich jetzt nur erste zeile löschen könnte?

Ich meine wie kann ich das in eine listview SCHREIBEN ?

[autoit]

_FileWriteFromArray("C:\serverts_out.txt",$aOut,2)

[/autoit]

Danke,
würde es jetzt so auslesen.

[autoit]

$sstring = FileRead("c:\serverts.txt")
$sRegEx = "([a-z0-9_]*)\s+([a-z0-9_\-#]*)\s+(\d*)\s+([a-zA-z]*)\s+(\d+:\d+)\s+(.*)"

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

MsgBox(64,"", StringRegExpReplace($sString,$sRegEx, "$1|$2|$3|$4|$5|$6") )

[/autoit]

leider ist die trennung nicht sauber und die erste zeile ist vorhanden,
kannst du nochmal drüber schauen wenn du zeit hast?
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Danke
SubZero

Damit geht es zumindestens nicht ???

[autoit]

GUICtrlCreateListViewItem($string & @CRLF, $ListView2)

[/autoit]

ok eine frage noch wollte es in einer Listview darstellen leider schreibt er nur die erste zeile in die Listview was muss ich dabei beachten?

[autoit]

Func check()
local $string
$in=fileopen("c:\serverts.txt",0)
while 1
$line=filereadline($in) ;filereadline"klaut" die @crlf am ende der zeile
If @error = -1 Then ExitLoop
if not stringinstr($line,"BENUTZERNAME") then $string&=_ErsetzeLeerzeichenDurchPipe($line)&@crlf
;if stringisspace($line)<>1 and $line<>"" then $string&=$line&@crlf ;zeile besteht nicht aus leerstring, leerzeichen oder tab oder cr oder lf....
wend

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

msgbox (0,0,$string)
GUICtrlCreateListViewItem($string, $ListView2)
filedelete("out.txt")
$out=filewrite("out.txt",$string)

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

EndFunc

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

Gruß
SubZero

Hey,
wollte gerne den inhalt einer editbox in eine editbox laden.
Was mache ich falsch?

[autoit]

Func msg()

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

$var = FileOpenDialog("", @ScriptDir & "\", "Text (*.txt)", 1 + 4 )

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

If @error Then
MsgBox(4096,"","Keine Datei(en) ausgewählt")
Else
While True
$sItem = FileReadLine($var)
If @error Then ExitLoop
WEnd
GuICtrlSetData($Editbox, $sItem)
EndIf
EndFunc

[/autoit]

Gruß
SubZero

das problem ist ich muss die erste zeile löschen?
BENUTZERNAME SITZUNGSNAME KENNUNG STATUS LEERLAUFZEIT ANMELDEZEIT

und anschliessen habe ich ja immer andere daten für den string würde mir ja

[autoit]

MsgBox(64,"",StringReplace("roup_00138 rdp-tcp#123 3 Aktiv 2:41 05.08.2009 06:59"," ", "|", 5) )

[/autoit]

das reichen aber,
ich wollte ein Scan toll für alle meine server und alle userdaten auswerten??

Gruß
SubZero

Hey,

brauche wiedermal hilfe beim Regexp Pattern .

BENUTZERNAME SITZUNGSNAME KENNUNG STATUS LEERLAUFZEIT ANMELDEZEIT
user_000211 rdp-tcp#122 2 Aktiv 4 05.08.2009 06:17
group_00138 rdp-tcp#123 3 Aktiv 2:41 05.08.2009 06:59

Siehe anhang:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

und wollte eine ausgabe haben.
user_000211|rdp-tcp#122|2|Aktiv|4|05.08.2009 06:17
group_00138|rdp-tcp#123|3|Aktiv|2:41|05.08.2009 06:59

Danke

SubZero

Hey,
ich sehe gerade nagios ist GPL und in c geschrieben
hat jemand schonmal versucht es mit autoit zu verheiratten

Nagios schonmal gehört,
Wie sieht es aus mit Autoit Mitteln?

Gruß
SubZero

Hey,
noch andere Vorschläge?

Gruß
SubZero

Hey,

hat jemad eine idee wie ich prüfen kann, wieviele rechner von 2000 online sind?
Der standart ping dauert zu lange, auch wenn ich den timeout auf 1 setze .

Danke
SubZero

Hey,

die regread pfade habe ich geprüft funktioniert :
habe in jede zeile eine msg eingefügt er hängt bei :
While 1
msg
aber wieso??

Gruß
SubZero

Hey,

ich sehe ja wenn er mit dem Ping durch ist .
und dann hängt e!
weiss aber nicht wo ???????

Hey,
ich habe ja schon überall eine MSGBOX aber leider ohne erfolg ich kriege keine einzige MSG
habe das komische gefühl das while schleife garnicht anspringt ???
Aber ist auch nur so ein gefühl?

Gruß
SubZero

Hey,
die anzahl meiner items also in meinem fall 876
eine idee?
Gruß
SubZero

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

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

Func _count()
$lv1count = _GUICtrlListView_GetItemCount($hListView)
$lv2count = _GUICtrlListView_GetItemCount($hListViewon)
$lv3count = _GUICtrlListView_GetItemCount($hListViewflag)
$lv4count = _GUICtrlListView_GetItemCount($hListViewSH)

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

GUICtrlSetData($countAD, $lv1count)
GUICtrlSetData($countON, $lv2count)
GUICtrlSetData($countflag, $lv3count)
GUICtrlSetData($countsh, $lv4count)
EndFunc ;==>_count

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

Func _reg()

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

Local $icount = _GUICtrlListView_GetItemCount($hListViewon)
For $i = 0 To $icount - 1
$ListViewText = _GUICtrlListView_GetItemTextArray($hListViewon, $i)
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
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\x32\Flag", "ProductName")
If @error = 0 Then
MsgBox(0, "", "Flag eintrag x32 vorhanden")
ExitLoop
Else
RegRead("\\" & $ListViewText[1] & "\HKEY_LOCAL_MACHINE\SOFTWARE\x64\\Flag", "ProductName")
If @error = 0 Then
MsgBox(0, "", "Flag eintrag x64 vorhanden")
ExitLoop
If @error Then ExitLoop
EndIf
EndIf
EndIf
EndIf
WEnd

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

_count()
Next
EndFunc ;==>_reg

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

Func NewItems1()
_GUICtrlListView_DeleteAllItems($hListView)
_GUICtrlListView_DeleteAllItems($hListViewon)
_GUICtrlListView_DeleteAllItems($hListViewflag)
_GUICtrlListView_DeleteAllItems($hListViewSH)
Local $array
$string = FileRead('c068.txt')
$array = StringRegExp($string, 'CN=(.+?),.*', 3)
For $i = 0 To UBound($array) - 1
GUICtrlCreateListViewItem($array[$i], $hListView)
Next
EndFunc ;==>NewItems1

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

Func _pingall()

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

_GUICtrlListView_DeleteAllItems($hListViewon)
Local $icount = _GUICtrlListView_GetItemCount($hListView)
For $i = 0 To $icount - 1

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

$ListViewText = _GUICtrlListView_GetItemTextArray($hListView, $i)
ConsoleWrite($ListViewText[1] & @CRLF)
Ping($ListViewText[1], 1) ; Host anpingen
If @error = 0 Then GUICtrlCreateListViewItem($ListViewText[1], $hListViewon)
_count()
Next
_reg()
EndFunc ;==>_pingall

[/autoit]

Brauche mal einen tipp??

Gruß
SubZero

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

Toorrrrrrrrrrrrrrrr!!!!!!!!!!!!!!!!!!!!

[autoit]

#include <Constants.au3>
Local $foo = Run(@ComSpec & " /c " & "alive.exe /repeat=1 /timeout=0 server", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
Local $line
;
While 1
$line = StdoutRead($foo)
If StringInStr ($line, "is alive") Then
MsgBox (0,"","Server da....")
ExitLoop
ElseIf StringInStr ($line, "TIMED OUT") Then
MsgBox (0,"","Server Time Out.....")
ExitLoop
ElseIf StringInStr ($line, "host unreachable") Then
MsgBox (0,"", "Server nicht erreichbar.....")
ExitLoop
ElseIf StringInStr ($line, "Bad Destination") Then
MsgBox (0,"", "Server Bad Destination....")
ExitLoop
ElseIf StringInStr ($line, "network unreachable") Then
MsgBox (0,"", "network unreachable....")
ExitLoop
ElseIf StringInStr ($line, "protocol unreachable") Then
MsgBox (0,"", "protocol unreachable....")
ExitLoop
ElseIf StringInStr ($line, "port unreachable") Then
MsgBox (0,"", "port unreachable....")
ExitLoop
ElseIf StringInStr ($line, "expired") Then
MsgBox (0,"", " expired ....")
ExitLoop
ElseIf StringInStr ($line, "Hardware error") Then
MsgBox (0,"", " Hardware error ....")
ExitLoop
ElseIf StringInStr ($line, "Other errors") Then
MsgBox (0,"", "Other errors ....")
ExitLoop
EndIf
If @error Then ExitLoop
Wend

[/autoit]