Beiträge von subzero007

  • Tab menü

    Hey habe eine frage habe ein Frage?
    Habe ein Tab menü wo sich die sich der inhalt erst richtig anzeigt wenn ich kurz in ein anderen tab wechsel und dann wieder zurück was läuft hier falsch?

  • 2000 datein durchsuchen????

    Hallo ich habe wieder mal was vor.

    ich möchte gerne in einem Verzeinis mehrer log dateien auslesen. etwa 2000 dateien "%computername%.log"
    jetzt habe ich vor dort Stehen Computer Spezifische infos aus Software installationen.

    Mir geht es Hauptsächlich um die Software.

    in der Datei gibt es folgenden Eintrag für jede Software die installiert ist
    [Software]
    %softwarename%=%Version%,%Installversion%;%installdate%;%returncode%;%Language%;%Identnr%
    ...
    ...
    ...
    ...
    [

    und endet mit einer eckigen klammer,

    Jetzt wollte ich über alle Dateien Auswerten welche Software installiert ist,"mit %version% und %installversion%" und es in einer Listview darstellen.
    Die einträge dürfen nicht doppelt in der listview dargestellt werden.


    In der listview1 soll Alles dargestellt werden wenn ein Doppelklick auf die Software gemacht wird,
    soll wo überall die software installiert ist in der listview2 dargestellt werden.
    also %computername.log muss dargestellt werden in der listview2 und am besten die .log nicht darstellen.

    Da ich festellen möchte wo die Installation sauber gelaufen ist möchte ich Returncode filtern über die Checkbox
    und den Returncode eingeben wer diesen schlüssel hat oder nicht dann in der listview3 darstellen

    und das input fensterlinks da wollte ich über wildcard suchen können und die items in der listview farblich makieren bzw sortieren alle die den eintrag haben oben stehen ist dasalles möglich?

    Ich habe schon viel gemacht aber nicht sowas würde mich über jede Hilfe freuen ;)

    hier mein Grundgerüst.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 901, 560, 192, 283)
    $ListView1 = GUICtrlCreateListView("", 32, 48, 250, 414)
    $Input1 = GUICtrlCreateInput("Input1", 32, 496, 121, 21)
    $Suchen = GUICtrlCreateLabel("Suchen", 40, 472, 49, 17)
    $AlleSoftware = GUICtrlCreateLabel("AlleSoftware", 40, 16, 87, 17)
    $ListView2 = GUICtrlCreateListView("", 312, 48, 250, 414)
    $ListView3 = GUICtrlCreateListView("", 576, 48, 250, 414)
    $Instaliertauf = GUICtrlCreateLabel("Instaliertauf", 312, 16, 58, 17)
    $Filter = GUICtrlCreateButton("Filter", 512, 472, 51, 25, 0)
    $ReturnCode = GUICtrlCreateCheckbox("ReturnCode", 312, 472, 89, 17)
    $Input2 = GUICtrlCreateInput("Input2", 408, 472, 97, 21)
    $Export2 = GUICtrlCreateButton("Export2", 768, 16, 59, 25, 0)
    $Export1 = GUICtrlCreateButton("Export1", 496, 16, 67, 25, 0)
    $Filte = GUICtrlCreateLabel("Filte", 640, 24, 39, 17)
    $Einlesen = GUICtrlCreateButton("Einlesen", 208, 16, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

  • RegExp??

    Super funktioniert nur noch 2 kleines Problem habe ich ;)
    regExp
    'CN=(.+?),OU=.+?,OU=.+?,OU=(.+?),.+DC=com (.+)', '$1, $2, $3')
    ich kriege in die Listview
    server,%ou%, %leerzeichen% beschreibung
    wie kriege ich die leerzeichen weg? hinter %ou%,
    so das ich server,ou,Beschreibung habe??

    Und als letztes muss die aller letzte zeile gelöscht werden war mir vorhin nicht aufgefallen
    wie mache ich das?
    entweder in der txt oder in der listview die letzte zeile löschen eine idee?

  • RegExp??

    Das ziel ist in einer listview folgendes Darzustellen:
    So sieht die TXT aus
    dn desc
    CN=Server001,OU=Servers,OU=Test3,OU=ML,DC=xx,DC=Test,DC=com Beschreibung 1
    CN=serverTS1,OU=Servers,OU=TEST4,OU=FL,OU=xx,DC=Test,DC=com Beschreibung 2
    CN=serverfi1,OU=Servers,OU=TEST2,OU=HL,DC=xx,DC=Test,DC=com Beschreibung 3
    CN=serverfi2,OU=Servers,OU=Test1,OU=JT,DC=xx,DC=Test,DC=com Beschreibung 4

    Und so soll es Später aussehen in inder Listview so dargestellt werden
    Also muss die erste Zeile auch gelöscht werden und dann sollte es so aussehen

    Server001,ML,Beschreibung 1
    serverTS1,FL,Beschreibung 2
    serverfi1,HL,Beschreibung 3
    serverfi2,JT,Beschreibung 4

    Ich kriege keine einträge in die Listview auch jetzt mit filopen in der func _loadserver geht es nicht
    habe deine funktionen eingebaut kriege es leider nicht hin???? ?(

    hier mein Code:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <String.au3>
    #include <GuiListView.au3>
    #include <Array.au3>

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

    #Region ### START Koda GUI section ### Form=

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

    $Form1 = GUICreate("AD-Computer", 886, 617, 477, 169)
    Opt("GuiOnEventMode",1)
    ;Opt("MustDeclareVars", 1)
    $ListViewserver = GUICtrlCreateListView("Server", 32, 48, 250, 478)
    $ListViewclient = GUICtrlCreateListView("Client", 296, 48, 250, 478)
    $ListViewmaschiene = GUICtrlCreateListView("Maschiene", 567, 46, 250, 478)
    $Auslesen = GUICtrlCreateButton("Auslesen", 32, 544, 75, 25, 0)
    GuiCtrlSetonevent(-1, "_auslesen")
    $Serverexport = GUICtrlCreateButton("Serverexport", 208, 528, 75, 25, 0)
    $Clientexport = GUICtrlCreateButton("Clientexport", 472, 528, 75, 25, 0)
    $Maschineexport = GUICtrlCreateButton("Maschineexport", 744, 528, 75, 25, 0)
    $Countserver = GUICtrlCreateLabel("Countserver", 216, 24, 61, 17)
    $CountClient = GUICtrlCreateLabel("countclient", 484, 23, 56, 17)
    $Countmaschien = GUICtrlCreateLabel("Countmaschien", 736, 24, 77, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

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

    Func _auslesen()

    _GUICtrlListView_DeleteAllItems($ListViewserver) ; Das Handle eben noch bestimmen (s. Anfang des Threads)
    _GUICtrlListView_DeleteAllItems($ListViewclient) ; Das Handle eben noch bestimmen (s. Anfang des Threads)
    _GUICtrlListView_DeleteAllItems($ListViewmaschiene) ; Das Handle eben noch bestimmen (s. Anfang des Threads)

    ;RunWait(@ComSpec & " /c " & 'dsquery computer domainroot -name server* -limit 0 | dsget computer > s068.txt', "", @SW_HIDE)

    _loadserver()
    ;RunWait(@ComSpec & " /c " & 'dsquery computer domainroot -name client* -limit 0 | dsget computer > c068.txt', "", @SW_HIDE)
    _Loadclient()
    ;RunWait(@ComSpec & " /c " & 'dsquery computer domainroot -name masch* -limit 0 | dsget computer > m068.txt', "", @SW_HIDE)
    _Loadmaschiene()
    EndFunc

    Func _Loadserver() ; Datenbank-Datei laden
    Local $serverItem
    Local $hfileserver = 'server.txt'
    Local $hfileserver = FileOpen($hfileserver, 0)
    If $hfileserver <> -1 Then
    _GUICtrlListView_BeginUpdate($ListViewserver)
    FileReadLine($hfileserver)
    While True

    $serverItem = FileReadLine($hfileserver) ; Zeile aus der Datei lesen
    local $string = StringRegExpReplace($serverItem, 'CN=(.+?),OU=.+?,OU=.+?,OU=(.+?),.+DC=com (.+)', '$1, $2, $3') ;Der reguläre Ausdruck von Oscar
    If @error Then ExitLoop
    GUICtrlCreateListViewItem($serverItem, $ListViewserver) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
    WEnd
    _GUICtrlListView_EndUpdate($ListViewserver) ; Listview wieder freigeben
    FileClose($hfileserver) ; Datei schließen
    EndIf

    EndFunc ;==>_Load

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

    Func _Loadclient() ; Datenbank-Datei laden
    Local $CLIENTItem
    Local $hfileClient = 'Client.txt'
    If $hfileClient <> -1 Then
    _GUICtrlListView_BeginUpdate($ListViewclient)
    FileReadLine($hfileClient)
    While True

    $CLIENTItem = FileReadLine($hfileClient) ; Zeile aus der Datei lesen
    local $string = StringRegExpReplace($CLIENTItem, 'CN=(.+?),OU=.+?,OU=.+?,OU=(.+?),.+DC=com (.+)', '$1, $2, $3') ;Der reguläre Ausdruck von Oscar
    If @error Then ExitLoop
    GUICtrlCreateListViewItem($ClientItem, $ListViewclient); mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
    WEnd
    _GUICtrlListView_EndUpdate($ListViewclient) ; Listview wieder freigeben
    FileClose($hfileClient) ; Datei schließen
    EndIf

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

    EndFunc

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

    Func _Loadmaschiene() ; Datenbank-Datei laden

    Local $maItem
    Local $hfilema = 'masch.txt'
    If $hfilema <> -1 Then
    _GUICtrlListView_BeginUpdate($ListViewmaschiene)

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

    FileReadLine($hfilema)
    While True
    $maItem = FileReadLine($hfilema) ; Zeile aus der Datei lesen
    local $string = StringRegExpReplace($maItem, 'CN=(.+?),OU=.+?,OU=.+?,OU=(.+?),.+DC=com (.+)', '$1, $2, $3') ;Der reguläre Ausdruck von Oscar
    If @error Then ExitLoop
    GUICtrlCreateListViewItem($maItem, $ListViewmaschiene) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
    WEnd
    _GUICtrlListView_EndUpdate($ListViewmaschiene) ; Listview wieder freigeben
    FileClose($hfilema) ; Datei schließen
    EndIf
    EndFunc

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

  • RegExp??

    Was mache ich falsch ??

    Spoiler anzeigen
    [autoit]

    Func _Loadserver()
    Local $serverItem
    Local $hfileserver = 'server.txt'
    If $hfileserver <> -1 Then
    _GUICtrlListView_BeginUpdate($ListViewserver)
    FileReadLine($hfileserver)
    While True

    $serverItem = FileReadLine($hfileserver)
    local $string = StringRegExpReplace($serverItem, 'CN=(.+?),OU=.+?,OU=.+?,OU=(.+?),.+DC=com (.+)', '$1, $2, $3')
    If @error Then ExitLoop
    GUICtrlCreateListViewItem($serverItem, $ListViewserver)
    WEnd
    _GUICtrlListView_EndUpdate($ListViewserver)
    FileClose($hfileserver)
    EndIf

    EndFunc ;

    [/autoit]

  • RegExp??

    SO lade ich es in die listview

    Spoiler anzeigen
    [autoit]

    Func _Load() ; Datenbank-Datei laden
    _GUICtrlListView_DeleteAllItems($ListView1) ; Das Handle eben noch bestimmen (s. Anfang des Threads)
    Local $sItem
    $FileOpenDialog = FileOpenDialog("Pc Liste Wählen", @ScriptDir & "\", "Pc Liste (*.txt;*.csv)", 1 + 4)
    Local $hFile = FileOpen($FileOpenDialog, 0) ; Datei zum lesen öffnen
    If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
    _GUICtrlListView_BeginUpdate($ListView1) ; Listview sperren
    While True ; Endlosschleife
    $sItem = FileReadLine($hFile) ; Zeile aus der Datei lesen
    If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
    GUICtrlCreateListViewItem($sItem, $ListView1) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
    WEnd
    _GUICtrlListView_EndUpdate($ListView1) ; Listview wieder freigeben
    FileClose($hFile) ; Datei schließen
    EndIf
    EndFunc ;==>_Load

    [/autoit]

    und wie formatiere ich mein TXT??

  • RegExp??

    Ja das Problem ist habe 2000 Zeilen

    Wollte eigentlich von links abschneiden nach dem ersten "cn= %wert% bis zum nächsten ,
    und von hinten abschneiden ,DC=xx,DC=Test,DC=com den %wert%=HL
    und dann eben von ganz rechts lesen bis zum dc=com alles was rechts davon steht ist beschreibung
    und dann sollte das rauskommen
    "Server001,ML,Beschreibung 1"
    Weiss aber nicht wie??

    Es ist mir unangenehm aber Wie löscht man die erste zeile?

  • RegExp??

    Hallo Habe folgendes Problem,
    wollte ein TXt formatieren habe Probleme sie zu Formatieren würde mich über jede unterstützung freuen.

    Auszug aus der TXT:

    dn desc
    CN=Server001,OU=Servers,OU=Test3,OU=ML,DC=xx,DC=Test,DC=com Beschreibung 1
    CN=serverTS1,OU=Servers,OU=TEST4,OU=FL,OU=xx,DC=Test,DC=com Beschreibung 2
    CN=serverfi1,OU=Servers,OU=TEST2,OU=HL,DC=xx,DC=Test,DC=com Beschreibung 3
    CN=serverfi2,OU=Servers,OU=Test1,OU=JT,DC=xx,DC=Test,DC=com Beschreibung 4

    Und so soll es Später aussehen:
    Also muss die erste Zeile auch gelöscht werden und dann sollte es so aussehen

    Server001,ML,Beschreibung 1
    serverTS1,FL,Beschreibung 2
    serverfi1,HL,Beschreibung 3
    serverfi2,JT,Beschreibung 4

  • AD Computer und Server in listview darstellen

    Hallo habe eine frage wollte gerne in einer Domaine alle PC und Server in einer Listview darstellen.
    Mit dieser funktion _ADRecursiveGetMemberOf sollte ja gehen steige aber nicht durch ;(
    Also würde gerne dann angeben die ersten 2 oder 3 buchstaben des Severs bzw des Clients angeben und dann in Liestview darstellen mit description aus dem AD hat jemand einen Tipp für mich

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Für hilfreiche tippe wäre ich sehr dankbar
    ;)

  • Ping Tool

    Hey,
    bin jetzt endgültig fertig Funktioniert auch:
    will aber 2 kleine sachen einbauen vielleicht hat jemand da eine idee?

    1. Stop Botton falls ich eine längere liste von rechner pinge will ich auch abrechen können ohne die Gui abzuschiessen zu müssen?
    2. hat jemand eine idee wie ich ein Schnelleren Ping hinkriege wo ich die rechner schneller Prüfen kann?

    Spoiler anzeigen
    [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>

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

    Local $ad, $array1, $x = 0

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Ping Tool", 700, 510, 257, 323)
    $ListView1 = GUICtrlCreateListView("Hostname", 24, 48, 170, 342)
    GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 0, 160) ; setzt die 1. Spalte des Listviews auf 160 Pixel Breite
    $ListView2 = GUICtrlCreateListView("Online", 224, 48, 170, 342)
    GUICtrlSendMsg($ListView2, $LVM_SETCOLUMNWIDTH, 0, 160)
    $ListView3 = GUICtrlCreateListView("Offline", 424, 48, 186, 342)
    GUICtrlSendMsg($ListView3, $LVM_SETCOLUMNWIDTH, 0, 160)
    $hostladen = GUICtrlCreateButton("PC`s Laden", 24, 400, 60, 25, 0)
    $check = GUICtrlCreateButton("Check", 24, 432, 50, 25, 0)
    $stop = GUICtrlCreateButton("Stop", 24, 460, 50, 25, 0)

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

    $checkall = GUICtrlCreateButton("Check All", 75, 432, 50, 25, 0)
    $export1 = GUICtrlCreateButton("export1", 136, 400, 59, 25, 0)
    $export2 = GUICtrlCreateButton("export2", 336, 400, 59, 25, 0)
    $export3 = GUICtrlCreateButton("export3", 552, 400, 59, 25, 0)
    $chost = GUICtrlCreateButton("Clear Host", 80, 20, 59, 25, 0)

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

    $countoffline = GUICtrlCreateLabel("", 575, 20, 65, 25)
    $conline = GUICtrlCreateButton("Clear Online", 270, 20, 65, 25, 0)
    $countonline = GUICtrlCreateLabel("", 360, 20, 65, 25)

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

    $coffline = GUICtrlCreateButton("Clear Offline", 490, 20, 65, 25, 0)
    $counthost = GUICtrlCreateLabel("", 160, 20, 65, 25)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $hostladen
    _Load()
    Case $check

    _pingitem()
    case $checkall
    _pingall()
    Case $coffline
    _GUICtrlListView_DeleteAllItems($ListView3)
    Case $conline
    _GUICtrlListView_DeleteAllItems($ListView2)
    Case $chost

    _GUICtrlListView_DeleteAllItems($ListView1)

    case $export1
    _export1()
    case $export2
    _export2()
    case $export3
    _export2()

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

    EndSwitch
    WEnd

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

    Func _export1()
    ; $path = FileSaveDialog('ListView-Export speichern', @ScriptDir, '(*.txt)')
    ; $hWnd = $listview1
    ; FileWrite($path, _GUICtrlListView_Export $hWnd, 1, ',')

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

    ;FileWrite($path, _GUICtrlListView_Export ($hWnd, 1, ',')
    $hWnd = $listview1
    $path = FileSaveDialog('ListView-Export speichern', @ScriptDir, "CSV Datei (*.csv)")
    If @error Then Exit MsgBox(0, 'Fehler', 'Keine Zieldatei gewählt.')
    FileWrite($path & ".csv", _GUICtrlListView_Export($hWnd, 1, ','))

    EndFunc

    Func _export2()
    ; $path = FileSaveDialog('ListView-Export speichern', @ScriptDir, '(*.txt)')
    ; $hWnd = $listview1
    ; FileWrite($path, _GUICtrlListView_Export $hWnd, 1, ',')

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

    ;FileWrite($path, _GUICtrlListView_Export ($hWnd, 1, ',')
    $hWnd = $listview2
    $path = FileSaveDialog('ListView-Export speichern', @ScriptDir, "CSV Datei (*.csv)")
    If @error Then Exit MsgBox(0, 'Fehler', 'Keine Zieldatei gewählt.')
    FileWrite($path & ".csv", _GUICtrlListView_Export($hWnd, 1, ','))

    EndFunc

    Func _export3()
    ; $path = FileSaveDialog('ListView-Export speichern', @ScriptDir, '(*.txt)')
    ; $hWnd = $listview1
    ; FileWrite($path, _GUICtrlListView_Export $hWnd, 1, ',')

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

    ;FileWrite($path, _GUICtrlListView_Export ($hWnd, 1, ',')
    $hWnd = $listview3
    $path = FileSaveDialog('ListView-Export speichern', @ScriptDir, "CSV Datei (*.csv)")
    If @error Then Exit MsgBox(0, 'Fehler', 'Keine Zieldatei gewählt.')
    FileWrite($path & ".csv", _GUICtrlListView_Export($hWnd, 1, ','))

    EndFunc


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


    Func _Load() ; Datenbank-Datei laden
    _GUICtrlListView_DeleteAllItems($ListView1) ; Das Handle eben noch bestimmen (s. Anfang des Threads)
    _count()
    Local $sItem
    $FileOpenDialog = FileOpenDialog("Pc Liste Wählen", @ScriptDir & "\", "Pc Liste (*.txt;*.csv)", 1 + 4)
    Local $hFile = FileOpen($FileOpenDialog, 0) ; Datei zum lesen öffnen
    If $hFile <> -1 Then ; wenn das öffnen erfolgreich war, dann...
    _GUICtrlListView_BeginUpdate($ListView1) ; Listview sperren
    While True ; Endlosschleife
    $sItem = FileReadLine($hFile) ; Zeile aus der Datei lesen
    If @error Then ExitLoop ; wenn das Ende der Datei erreicht ist, dann Endlosschleife verlassen
    GUICtrlCreateListViewItem($sItem, $ListView1) ; mit den eingelesenen Daten einen neuen Listview-Eintrag erstellen
    WEnd
    _GUICtrlListView_EndUpdate($ListView1) ; Listview wieder freigeben
    FileClose($hFile) ; Datei schließen
    _count()
    EndIf
    EndFunc ;==>_Load

    Func _insert()
    $string = FileOpenDialog("Pc Liste Wählen", @ScriptDir & "\", "Pc Liste (*.txt;*.csv)", 1 + 4 )
    _GUICtrlListView_DeleteAllItems($ListView1)
    _GUICtrlListView_DeleteAllItems($ListView2)
    _GUICtrlListView_DeleteAllItems($ListView3)
    $array = StringSplit(FileRead($string),@CR)
    For $i = 0 To UBound($array) - 1
    GUICtrlCreateListViewItem($array[$i], $ListView1)
    Next
    EndFunc

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

    Func _pingall()
    _count()
    _GUICtrlListView_DeleteAllItems($ListView2)
    _GUICtrlListView_DeleteAllItems($ListView3)
    local $icount = _GUICtrlListView_GetItemCount($ListView1)
    for $i = 0 to $icount -1
    $ListViewText = _GUICtrlListView_GetItemTextArray($listview1, $i)
    ;consolewrite($ListViewText[1]&@CRLF)
    $var = Ping($ListViewText[1],250)
    Switch @error
    Case 1
    GUICtrlCreateListViewItem($ListViewText[1], $ListView3)
    _count()
    Case 2
    GUICtrlCreateListViewItem($ListViewText[1], $ListView3)
    _count()
    Case 3
    GUICtrlCreateListViewItem($ListViewText[1], $ListView3)
    _count()
    Case 4
    GUICtrlCreateListViewItem($ListViewText[1], $ListView3)
    _count()
    case Else
    GUICtrlCreateListViewItem($ListViewText[1], $ListView2)
    _count()
    EndSwitch
    next
    EndFunc

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

    Func _pingitem()
    _count()
    $ListViewText = _GUICtrlListView_GetItemTextArray($listview1)
    consolewrite($ListViewText[1]&@CRLF)
    $var = Ping($ListViewText[1],100)
    If $var Then
    GUICtrlCreateListViewItem($ListViewText[1] & " online Antwortzeit: " & $var , $ListView2)
    _count()
    ;Msgbox(0,"Status","Online, Antwortzeit war:" & $var)
    Else
    GUICtrlCreateListViewItem($ListViewText[1] & " offline Fehler: " & @error , $ListView3)
    _count()
    ;Msgbox(0,"Status","Es ist ein Fehler mit der Nummer " & @error & " aufgetreten.")
    EndIf
    EndFunc

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

    Func _GUICtrlListView_Export($hWnd, $exType=0, $Delim=Default) ; $exType=0 Array / $exType=1 String
    If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd)
    Local $row = _GUICtrlListView_GetItemCount($hWnd)
    If $exType Then
    If $Delim <> Default Then Local $oldDelim = Opt('GUIDataSeparatorChar', $Delim)
    Local $sOut = ''
    For $i = 0 To $row -1
    $sOut &= _GUICtrlListView_GetItemTextString($hWnd, $i) & @CRLF
    Next
    If $Delim <> Default Then Opt('GUIDataSeparatorChar', $oldDelim)
    Return $sOut
    EndIf
    Local $col = _GUICtrlListView_GetColumnCount($hWnd)
    Local $aOut[$row][$col]
    If $col = 1 Then
    ReDim $aOut[$row]
    For $i = 0 To UBound($aOut) -1
    $aOut[$i] = _GUICtrlListView_GetItemText($hWnd, $i)
    Next
    Return $aOut
    EndIf
    For $i = 0 To UBound($aOut) -1
    For $j = 0 To UBound($aOut, 2) -1
    $aOut[$i][$j] = _GUICtrlListView_GetItemText($hWnd, $i, $j)
    Next
    Next
    Return $aOut
    EndFunc

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

    Func _count()
    $lv1count = _GUICtrlListView_GetItemCount($ListView1)
    $lv2count = _GUICtrlListView_GetItemCount($ListView2)
    $lv3count = _GUICtrlListView_GetItemCount($ListView3)
    GUICtrlSetData($counthost, $lv1count)
    GUICtrlSetData($countonline, $lv2count)
    GUICtrlSetData($countoffline, $lv3count)

    EndFunc

    [/autoit]

  • Ordner inhalt in Listview Darstellen

    Hallo,
    stehe vor einen Problem und brauche wieder mal hilfe.

    habe mehrer verzeichnisse und dort befindet sich immer eine datei die den gleichen namen hat
    z.b
    c:\office\log.ini
    c:\buero\log.ini
    c:\labor\log.ini
    c:\veruche\log.ini
    c:\office\log.ini
    c:\*****\log.ini

    jetzt wollte ich die log.ini in einer listview darstellen in dem format
    office.ini
    buero.ini
    labor.ini
    versuche.ini
    office.ini
    *****.ini

    Wie kann ich das machen??