1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Volumeman

Beiträge von Volumeman

  • Array - Mysql - If-Abfrage

    • Volumeman
    • 28. Juli 2014 um 13:14

    Um das Thema nochmal neu zu entfachen (nach dem HDD Crash des Forums) wie gewünscht mal das Stück Code und dazu auch eine SQL-TestDB

    Nicht wundern, hier sind nur zwei Kopierer enthalten, es sind durchaus mehr vorhanden, auch weit aus mehr Einträge als Werte für die Seitenzahlen... etc...
    Problem ist halt, dass wenn er Werte in der einen Tabelle "history_uint" nicht findet, müsste er dann die zweite Tabelle "history" durchsuchen, ob er da den Wert findet...

    Benötigt wird es um die Seitenzahlen der letzten drei Monate (Monatsweise) aus der Zabbix SQL-DB auszulesen.

    Spoiler anzeigen
    [autoit]


    #include <MySQL.au3>
    #include <array.au3>

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

    Global $items[27][9], $array_Tage[3][3]
    $SQL = _MySQLConnect("xxxx","xxxx","test","dein Server")

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

    Abfrage_Drucker_Itemid()
    Abfrage_HostBeschreibung()
    Abfrage_Tage()
    Abfrage_Seitenanzahl()

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

    Func Abfrage_Drucker_Itemid()
    $i = 1
    $var = _Query($SQL,"Select itemid, hostid FROM items WHERE description='Kopierer Gesamtseiten' OR description='Drucker TotalPages' OR description='Kyocera TotalPages';")
    With $var
    While NOT .EOF
    $items[$i][0]=.FIELDS("itemid").value
    $items[$i][1]=.FIELDS("hostid").value
    $i = $i +1
    .MoveNext
    WEnd
    EndWith
    $items[0][0]= $i
    Global $Abfrage_Seitenzahl[$items[0][0]][3]
    ;~ _ArrayDisplay($items, "datenNach befüllen")
    EndFunc

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

    Func Abfrage_HostBeschreibung()
    $i = 1
    For $j = 1 to $items[0][0]-1
    $stringbau2 = "Select host FROM hosts WHERE hostid='" & $items[$i][1] & "';"
    $hello = _Query($SQL,$stringbau2)
    With $hello
    While NOT .EOF
    $items[$i][2]=.FIELDS("host").value
    $i = $i +1
    .MoveNext
    WEnd
    Endwith
    Next
    ;~ _ArrayDisplay($items, "", "", "", "", "itemid|hostid|hostname")
    EndFunc

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

    Func Abfrage_Tage()
    $i = 1
    $date = _Query($SQL,"Select ( Select UNIX_TIMESTAMP(DATE_FORMAT(Last_day(Date(Now())- INTERVAL 1 MONTH), '%Y-%m-01 00:00:01')) ) As ErsterTagVormonat, ( Select UNIX_TIMESTAMP(DATE_FORMAT(Last_day(Date(Now())- INTERVAL 2 MONTH), '%Y-%m-01 00:00:01')) ) As ErsterTagVorVormonat, ( Select UNIX_TIMESTAMP(DATE_FORMAT(Last_day(Date(Now())- INTERVAL 3 MONTH), '%Y-%m-01 00:00:01')) ) As ErsterTagVorVorVormonat, ( Select UNIX_TIMESTAMP(DATE_FORMAT(Last_day(Date(Now())- INTERVAL 1 MONTH), '%Y-%m-%d 23:59:59')) ) As LetzterTagVormonat, ( Select UNIX_TIMESTAMP(DATE_FORMAT(Last_day(Date(Now())- INTERVAL 2 MONTH), '%Y-%m-%d 23:59:59')) ) As LetzterTagVorVormonat, ( Select UNIX_TIMESTAMP(DATE_FORMAT(Last_day(Date(Now())- INTERVAL 3 MONTH), '%Y-%m-%d 23:59:59')) ) As LetzterTagVorVorVormonat;")
    With $date
    While NOT .EOF
    $array_Tage[1][0]=.FIELDS("ErsterTagVormonat").value
    $array_Tage[1][1]=.FIELDS("ErsterTagVorVormonat").value
    $array_Tage[1][2]=.FIELDS("ErsterTagVorVorVormonat").value
    $array_Tage[2][0]=.FIELDS("LetzterTagVormonat").value
    $array_Tage[2][1]=.FIELDS("LetzterTagVorVormonat").value
    $array_Tage[2][2]=.FIELDS("LetzterTagVorVorVormonat").value
    $i = $i+1
    .MoveNext
    WEnd
    EndWith
    ;~ _ArrayDisplay($array_Tage, "datenNach befüllen")
    EndFunc

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

    Func Abfrage_Seitenanzahl()
    $p = 0
    $st = 3
    $st2 = 4
    $nd = 0
    For $sm = 1 To 3
    $i = 1
    For $j = 1 to $items[0][0]-1
    $stringbau = "SELECT Max(value) AS MaxWert,Min(value) AS MinWert FROM history_uint WHERE itemid='" & $items[$i][0] & "' AND clock>='" & $array_Tage[1][$nd] & "' AND clock<='" & $array_Tage[2][$nd] & "';"
    $Abfrage_Seiten = _Query($SQL,$stringbau)

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

    If $Abfrage_Seiten > 0 Then
    With $Abfrage_Seiten
    While NOT .EOF
    ConsoleWrite(.FIELDS("MinWert").value & @CRLF)
    $items[$j][$st]=.FIELDS("MinWert").value
    $items[$j][$st2]=.FIELDS("MaxWert").value
    $i = $i +1
    .MoveNext
    WEnd
    EndWith
    Else
    $stringbau = "SELECT Max(value) AS MaxWert,Min(value) AS MinWert FROM history WHERE itemid='" & $items[$i][0] & "' AND clock>='" & $array_Tage[1][$nd] & "' AND clock<='" & $array_Tage[2][$nd] & "';"
    $Abfrage_Seiten = _Query($SQL,$stringbau)
    With $Abfrage_Seiten
    While NOT .EOF
    ;~ ConsoleWrite(.FIELDS("MinWert").value & @CRLF)
    $items[$j][$st]=.FIELDS("MinWert").value
    $items[$j][$st2]=.FIELDS("MaxWert").value
    $i = $i +1
    .MoveNext
    WEnd
    EndWith
    EndIf

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

    Next
    $st = $st +2
    $st2 = $st2 +2
    $nd = $nd +1
    $p = $p +1

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

    Next
    _ArrayDisplay($items, "Daten nach Abfrage", "", "", "", "itemdid|hostid|hostname|MonatHeute-3_min|MonatHeute-3_max|MonatHeute-2_min|MonatHeute-2_max|MonatHeute-3_min|MonatHeute-3_max")
    EndFunc

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

    _MySQLEND($SQL)

    [/autoit]

    Dateien

    test.zip 1,85 kB – 373 Downloads
  • Besitzer festellen - Ordner Problem

    • Volumeman
    • 21. August 2013 um 20:34

    Hmmm das ist natürlich doof... also kann ich die Geschichte in die Tonne kloppen bis sich jemand findet, der mehr Ahnung hat wie ich und das hinbekommt...

    Danke für deine Antwort (übrigens wieder mal der einzige)

  • Besitzer festellen - Ordner Problem

    • Volumeman
    • 21. August 2013 um 14:11

    Hallo Gemeinde,

    ich habe ein Problem mit dem folgenden Codeschnipsel... das Progrämmchen soll anhand eines Pfades und einen Folders den Besitzer einer jeden Datei UND auch eines jeden ORDNERS feststellen und jenachdem wer Besitzer ist dafür eine Text-Datei anlegen. Das "StringTrimleft" benötige ich da ein Laufwerk auf einem Fileserver abgefragt wird und dann der Domänenname vorne an steht und ich diesen erstmal "rausfiltern" muss bzw. möchte... Das Problem liegt jetzt darin, dass der Besitzer eines Ordners offenbar nicht ausgelesen wird, dafür dann eine .txt angelegt wird ohne den Usernamen...

    Vielleicht bin ich einfach zu blöd dazu, aber es könnte auch sein, dass die Funktion Besitzer des Ordners nicht unterstützt wird(?), denn Besitzer einer Datei funktioniert einwandfrei!

    Spoiler anzeigen
    [autoit]


    #Include <File.au3>
    #Include <Array.au3>
    #include <_GetFilesFolder_Rekursiv.au3>
    hotKeySet("{ESC}", "Terminate")

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

    $pfad = "C:\"
    $folder = "Programme"

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

    $test = _GetFilesFolder_Rekursiv($pfad & $folder, '*', "-1")
    Consolewrite("Array wurde eingelesen, fahre jetzt mit dem Bestimmen des Besitzers fort..." & @CRLF)

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

    $FileList = _FileListToArray($Pfad, '*.*', 0)

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

    For $i = 1 to $test[0]
    $FileList2 = _FileListToArray($Pfad & "\" & $FileList[$i], '*.*', 0)

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

    If FileExists(StringTrimleft(_GetExtProperty($test[$i], 8),10) & ".txt") Then
    FileWrite(StringTrimleft(_GetExtProperty($test[$i], 8),10) & ".txt", $test[$i] & @CRLF)
    Else
    $file = FileOpen(@SCRIPTDIR & "\" & StringTrimleft(_GetExtProperty($test[$i], 8),10) & ".txt", 1)
    FileWrite(StringTrimleft(_GetExtProperty($test[$i], 8),10) & ".txt", $test[$i] & @CRLF)
    FileClose($file)
    EndIf

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

    Next

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

    Func Terminate()
    Exit 0
    EndFunc

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

    ;~ ===============================================================================
    ; Function Name: GetExtProperty($sPath,$iProp)
    ; Description: Returns an extended property of a given file.
    ; Parameter(s): $sPath - The path to the file you are attempting to retrieve an extended property from.
    ; $iProp - The numerical value for the property you want returned. If $iProp is is set
    ; to -1 then all properties will be returned in a 1 dimensional array in their corresponding order.
    ; The properties are as follows:
    ; Name = 0
    ; Size = 1
    ; Type = 2
    ; DateModified = 3
    ; DateCreated = 4
    ; DateAccessed = 5
    ; Attributes = 6
    ; Status = 7
    ; Owner = 8
    ; Author = 9
    ; Title = 10
    ; Subject = 11
    ; Category = 12
    ; Pages = 13
    ; Comments = 14
    ; Copyright = 15
    ; Artist = 16
    ; AlbumTitle = 17
    ; Year = 18
    ; TrackNumber = 19
    ; Genre = 20
    ; Duration = 21
    ; BitRate = 22
    ; Protected = 23
    ; CameraModel = 24
    ; DatePictureTaken = 25
    ; Dimensions = 26
    ; Width = 27
    ; Height = 28
    ; Company = 30
    ; Description = 31
    ; FileVersion = 32
    ; ProductName = 33
    ; ProductVersion = 34
    ; Requirement(s): File specified in $spath must exist.
    ; Return Value(s): On Success - The extended file property, or if $iProp = -1 then an array with all properties
    ; On Failure - 0, @Error - 1 (If file does not exist)
    ; Author(s): Simucal ([email='Simucal@gmail.com'][/email])
    ; Note(s):
    ;
    ;===============================================================================

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

    Func _GetExtProperty($sPath, $iProp)
    Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
    $iExist = FileExists($sPath)
    If $iExist = 0 Then
    SetError(1)
    Return 0
    Else
    $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1))
    $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))
    $oShellApp = ObjCreate ("shell.application")
    $oDir = $oShellApp.NameSpace ($sDir)
    $oFile = $oDir.Parsename ($sFile)
    If $iProp = -1 Then
    Local $aProperty[35]
    For $i = 0 To 34
    $aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i)
    Next
    Return $aProperty
    Else
    $sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
    If $sProperty = "" Then
    Return 0
    Else
    Return $sProperty
    EndIf
    EndIf
    EndIf
    EndFunc ;==>_Get

    [/autoit]
  • QR-Code Creator

    • Volumeman
    • 7. Mai 2013 um 12:25

    Alles sehr verwirrend... ist jetzt die Frage, liegts am Barcode-Scanner?
    Liegts am genrellen Aufbau?
    Immerhin gibts ja ne RFC dafür...? http://tools.ietf.org/html/rfc6350

  • QR-Code Creator

    • Volumeman
    • 7. Mai 2013 um 10:20

    Um jetzt nicht auf eine Musterlösung zu warten, gebe ich mal nen Ausschnit vor, wie so eine Visitenkarte im Prinzip in "Codeform" aussieht.

    Spoiler anzeigen


    BEGIN:VCARD
    VERSION:2.1
    N;LANGUAGE=de:Mustermann;Max
    FN:Max Mustermann
    ORG:Musterfirma
    TEL;WORK;VOICE:0211 111 111
    TEL;WORK;FAX:0211 111 112
    ADR;WORK;PREF:;;Musterstrasse 1;Musterstadt;;11111;Germany
    URL;WORK:https://autoit.de/www.musterdomain.de
    EMAIL;PREF;INTERNET:mustermann@musterdomain.de
    END:VCARD

    Problem an der Sache ist, scannt man das ganze mal mit einem Iphöne (ja ich weiß, es sind mittlerweile viele von Samsung angetan), und der App Barcoo (Kontakt anlegen) funktioniert soweit alles ganz Klasse, ABER im Bereich Arbeit der Postanschrift gibt es Probleme. In der Straße steht dann Musterstrasse 1 Musterstadt. Die PLZ passt dann wieder, dafür steht dann im Feld Ort Germany drin.

    Jemand ne Idee?

    Bilder

    • QR_20130507_101701.png
      • 1,42 kB
      • 194 × 194
  • QR-Code Creator

    • Volumeman
    • 6. Mai 2013 um 11:40

    und was ist mit der VCF-Möglichkeit?

  • QR-Code Creator

    • Volumeman
    • 3. Mai 2013 um 12:11

    gibt es eine Möglichkeit die Grafiken insgesamt größer darzustellen?

    derzeit werden Sie ja in 58x58 Pixel ausgegeben...

    UND

    wie siehts mit Visitenkarten (vcf) aus?

  • Wie kommt ihr auf euren Nicknamen?

    • Volumeman
    • 18. Januar 2013 um 08:10

    Ganz einfach...
    beim Anlegen des Nicks, habe ich auf die Stereoanlage geguckt... ?( hmmm wie nenne ich mich denn jetzt ?( Volume stand da... und ZACK war er geboren, der Volumeman :D

  • Terminalsitzugen trennen

    • Volumeman
    • 12. März 2012 um 12:22

    Simpel ;)
    danke

  • Terminalsitzugen trennen

    • Volumeman
    • 12. März 2012 um 09:54

    Hallo AutoIt-Gemeinde,

    habe da mal ne kleine Frage zum Thema Terminalsitzungen trennen.
    Es kommt ja vor, dass viele User einfach bei der RDP-Session schön oben rechts dann auf das X klicken und die Terminalsitzung dann nicht getrennet wird, sondern im Hintergrund weiterläuft.

    Gibt es die Möglichkeit, bzw. hat jemand eine Idee, wie ich das bewerkstelligen kann, dass ein autoitscript (per Taskplaner) zu einer bestimmten Zeit startet und dann die user die auf "getrennt" stehen, kickt?

    Hat Autoit da irgendeine funktion schon implementiert, oder hat jemand ne Idee, wie man sowas gestaltet (und die Problematik ist nicht, den Task zu erstellen ;) )

    Volumeman

  • Eventlog nach bestimmter Event-ID durchsuchen in ein Log schreiben

    • Volumeman
    • 19. Dezember 2011 um 10:20

    soweit habe ich das jetzt gebaut ich ich es gerne hätte... nur ein Problem stellt sich mir immer wieder auf... unzwar verschwindet der Text einfach, aus der $aEvent[13]. Wenn man sich das Eventlog so aufmacht, ganz normal steht mehr Text drin als hier?!

    Spoiler anzeigen
    [autoit]


    #include <GuiConstantsEx.au3>
    #include <EventLog.au3>
    #include <Date.au3>
    HotKeySet("{ESC}", "Terminate")
    Dim $hEventLog, $sumEventlog, $aEvent, $j, $aDatum, $datumheute, $datum_neu
    $datumheute = _NowCalcDate()

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

    ;TrayIcon()
    Eventlogopen()
    Eventloggesamtzaehlen()
    Eventlogauslesen()
    Eventlogmustclose()

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

    Func TrayIcon()
    TraySetIcon(@ScriptDir & "\MW.ico")
    EndFunc

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

    Func Eventlogopen()
    $hEventLog = _EventLog__Open("", "system")
    EndFunc

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

    Func Eventloggesamtzaehlen()
    $sumEventlog = _EventLog__Count ($hEventLog)
    EndFunc

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

    Func Eventlogauslesen()
    For $i = 1 to $sumEventlog
    $aEvent = _EventLog__Read($hEventLog, True, True)
    ;~ ConsoleWrite($aEvent[7] & @CR)
    If $aEvent[7] = 1 Then ;Nur Fehler feststellen
    $aDatum = $aEvent[2]
    datumumschreiben()
    If $datum_neu = $datumheute Then
    ConsoleWrite($aEvent[1] & @CR & $aEvent[10] & @CR & $aEvent[13] & @CR)
    $j = $j + 1
    Else
    EndIf

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

    Else
    EndIf

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

    Next
    Msgbox(0, "Für heute erkannte Elemente", $j)
    EndFunc

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

    Func Eventlogmustclose()
    _EventLog__Close($hEventLog)
    EndFunc

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

    Func datumumschreiben()
    $datum = StringSplit($aDatum, '/')
    $datum_neu = ($datum[3] & "/" & $datum[1] & "/" & $datum[2])
    EndFunc

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

    Func Terminate()
    Eventlogmustclose()
    Exit 0
    EndFunc

    [/autoit]
  • progandy hat Geburtstag!

    • Volumeman
    • 13. Oktober 2011 um 18:08

    Nachträglich allet Jute :rock:

  • Webseiten Unwetterwarnungen - letzter Post

    • Volumeman
    • 24. August 2011 um 20:58

    Hallo ihr Lieben,

    AutoBert hatte mal wieder die Optimal-Lösung ^^
    genau so wie ich mir vorgestellt habe ist es auch... wenn man weiß wie es geht ists echt simpel...

    Waaaahnsinn... ;)
    Jetzt nur noch das Mail verschicken lassen bzw. über die Erzeugung einer Flagdatei an Zabbix anbinden fertig ist die "Petze" fürs Wetter :D

    Danke an alle

  • Webseiten Unwetterwarnungen - letzter Post

    • Volumeman
    • 24. August 2011 um 13:47

    Hmmm nun, habe da zwar mal hingeschrieben, aber wenn ich dafür was latzen muss, muss doch lieber ein AutoIt Script ran ;)

    Vielleicht (oder eher gesagt hoffentlich) haben andere vielleicht noch bessere Ideen?!

  • Webseiten Unwetterwarnungen - letzter Post

    • Volumeman
    • 24. August 2011 um 12:31

    Hallo zusammen,

    um nicht extra ein neues Thema aufuzumachen, nehme ich einfach mal dieses Thema, was ich vor "Jahren" mal erstellt haben soll *gg*

    Diesesmal gehts, logischerweise, wieder um eine I-Net Seite, nämlich ums liebe Wetter ;)

    Ich versuche aus der Seite von unwetterzentrale.de zu einem bestimmten Ort, aktive Meldungen abzufragen.

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>
    #include <file.au3>

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

    $oIE = _IEcreate("http://www.unwetterzentrale.de/uwz/getwarning_de.php?xpos=156&ypos=325&bland=nrw&lang=de")
    If FileExists(@scriptdir & "\wetter.txt") Then
    FileDelete(@scriptdir & "\wetter.txt")
    Else
    $sText = _IEBodyReadText ($oIE)
    ;~ MsgBox(0, "Body Text", $sText)
    $fileopen = FileOpen(@scriptdir & "\wetter.txt",1)
    FileWrite($fileopen, $sText)
    FileClose($fileopen)
    EndIf
    _IEQuit($oIE)
    Exit

    [/autoit]

    Das funktioniert auch Super soweit... in der Textdatei (testweise da den bodytext reingesetzt) landen auch wirklich alle Daten. Jetzt geht es mir aber darum, dass ich nicht genau weiß wie ich es anstellen soll, dass er nur folgenden Bereich "ausliest".

    Spoiler anzeigen

    Unwetterwarnungen für Düsseldorf
    Viersen (40211)
    Vorwarnung vor Gewitter,
    Warnstufe Rot erwartet
    gültig von: Dienstag, 23. August 2011, 23:10 Uhr
    gültig bis: Donnerstag, 25. August 2011, 22:00 Uhr
    gültig für: alle Höhenstufen Lokal kräftige Schauer und Gewitter mit Starkregen, Hagel, Sturmböen möglich
    Diese Vorwarnung wurde am Dienstag, 23. August 2011, 20:07 Uhr zuletzt aktualisiert.

    Dabei soll dann möglichst Unwetterwarnung für Düsseldorf, Vorwarnung vor Gewitter, gültig von:..., gültig bis:... so ausgelesen werden, dass Sie z.B. in eine Mail gepackt und dann verschickt werden.
    Ich gehe davon aus dass ich ein Array benötigen werde?

    Zudem gibt es auch die Möglichkeit, dass gleich mehrere Warnungen auftreten könnten. z.B Warnung vor Hitze, Wind und Gewitter... (akut für Unwetterwarnungen für Prenzlaualso alles nicht so einfach...
    wenn mir jemand en Tipp geben würde, wie ich da an mein gewünschtes Ziel komme, würde ich mich sehr freuen.

  • Eventlog nach bestimmter Event-ID durchsuchen in ein Log schreiben

    • Volumeman
    • 9. Juni 2011 um 08:19

    Soweit so gut... jetzt habe ich nur das Problem, dass er immer nur den ersten Eintrag wählt, aber halt nicht den zweiten, dritten, vierten etc...

    Jemand ne Idee

    [autoit]


    #include <EventLog.au3>

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

    Local $hEventLog

    $EventLog = _EventLog__Open ("", "System") ;Systemprotokolle auslesen
    $EventlogCount = _EventLog__Count ($EventLog) ;Zählen wieviele Einträge da sind damit for Schleife laufen kann

    For $i = 1 to $EventlogCount ;for schleife wird auch hochgezählt
    $Eventread = _EventLog__Read($EventLog, True, False) ;Eventlog lesen und ConsoleWrite
    If $Eventread[7] = 1 Then
    ConsoleWrite("Da isn Fehler" & " " & @CRLF)
    Elseif $Eventread[7] = 2 Then
    ConsoleWrite("Da ist ein Warning" & " " & @CRLF)
    Elseif $Eventread[7] = 4 Then
    ConsoleWrite("Da ist eine Information" & " " & @CRLF)

    EndIf
    _EventLog__Close ($EventLog)
    Next

    [/autoit]
  • Eventlog nach bestimmter Event-ID durchsuchen in ein Log schreiben

    • Volumeman
    • 9. Juni 2011 um 07:52

    Wollte mal wissen, ob der Autor da mal nen Lösungvorschlag hat??? Ist zwar schon ein Uralter Beitrag, aber vielleicht gibt es ja noch andere "Hacker" ( :thumbup: ) hier die da nen Lösungvorschlag haben...

    wenn nicht kann mir vielleicht jemand mal kurz erläutern, wie ich dem _eventlog_read mitteile, dass es z.B nur "Fehler" auswertet und alles andere (Informationen) "überspringt"

    EDIT:
    man sollte vielleicht erstmal wach werden^^

    [autoit]


    #include <EventLog.au3>

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

    Global $iMemo

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

    _Main()

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

    Func _Main()
    Local $hEventLog, $hGUI

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

    $hEventLog = _EventLog__Open ("", "Application")
    $aEvent = _EventLog__Read($hEventLog, True, False)
    If $aEvent[8] = "Fehler" Then
    ConsoleWrite("Da isn Fehler" & " " & @CRLF)
    Else
    ConsoleWrite("Da is kein Fehler zu finden" & " " & @CRLF)
    EndIf
    _EventLog__Close ($hEventLog)

    EndFunc ;==>_Main

    [/autoit]

    jetzt muss ich nur noch irgendwie hinbekommen, dass er solange im Ereignisprotokll sucht, bis er alle Einträge durchgesucht hat, ob wirklich kein Fehler da ist...

  • Frage - Windows (all) - Beep

    • Volumeman
    • 15. September 2010 um 19:45

    Hallo ihr beiden!

    Ja es sind auch Linux-Server im Einsatz, jedoch überwiegen mehr die Windows-Maschinen...

    Es ist ein anhaltendes Beep... hört dann auf und ist dann auch über mehrere Stunden nicht zu hören.
    Irgendwann kommt es dann auch mal wieder... Meldungen in den Logs sind so nicht abzuleiten, bzw. ich sehe dort keine Einträge die auf eine Fehlermeldung hindeuten, die einen "Beep" rechtfertigen würden...

    Hoffe auf weitere Ideen, Anregungen und Vorschläge ;)

  • Frage - Windows (all) - Beep

    • Volumeman
    • 15. September 2010 um 14:28

    Ist es möglich, in Autoit ein Script zu schreiben, dass auf einem x-beliebigen Windows Rechner (egal ob 2000, W2k3) läuft und die ganze Zeit abfragt, ob der Beep gerade aktiv ist?

    Problematik ist ganz einfach. Man(n) hat ein Rechenzentrum, in diesem Rechenzentrum stehen mehrere Server... und eine laute Klimaanlage. Die Rechner stehen sehr nah bei einander, sodass man nicht genau feststellen kann, aus welchem Rechner der Beep kommt.

    Daher wäre ein Script praktisch, was auf allen servern installiert werden kann und dann wenn der Rechner "piept" ne Meldung (msgbox) bringt.

    die MsgBox ist mir bekannt anzuwenden, ne schleife bekomm ich auch gebildet, die Frage ist halt:

    a) kann autoit das "auslesen"/feststellen
    b) wenn ja wie?

  • DirMove - FileMove etc.

    • Volumeman
    • 18. August 2010 um 09:16

    Verdammt bist du gut... genau so soll es sein *freu*

    Vielen lieben Dank!!! :D:D:D

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™