HTMLWorld - HTML, CSS, JavaScript, PHP, Java, Flash und vieles mehrHTMLWorld:   Home | Impressum
 

 
 

Anzeige 
 
HTMLWorld » Forum

Thema anzeigen - Eventlog mittels VBScript auslesen

 FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 

Eventlog mittels VBScript auslesen

 

Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Vorheriges Thema:
Nächstes Thema:  
Autor Nachricht
Scary



Anmeldungsdatum: 29.07.2011
Beiträge: 2

BeitragVerfasst am: 29.07.2011 20:22:51    Titel: Eventlog mittels VBScript auslesen Antworten mit Zitat

Hallo!

Ich befasse mich gerade neu mit VBS und bin daher vorerst auf eure Unterstützung angewiesen. (=

Ich benötige ein VBScript welches mir Rückgabewerte aus dem Windows-Eventlog für
- die Anzahl der Fehler und Warnungen pro Tag
- die Anzahl der Gesamtfehler und -warnungen
- sowie den Text des letzten Fehlers bzw. Warnung
liefert.

Müsste unter Windows Server 2003 und 2008 lauffähig sein.


Vielen Dank! (=
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Scary



Anmeldungsdatum: 29.07.2011
Beiträge: 2

BeitragVerfasst am: 30.07.2011 18:16:17    Titel: Antworten mit Zitat

Soweit bin ich schon mal:

Zitat:
'VBScript

strComputer = "." 'Den aktuellen Computer durchsuchen
Set objWMIService = GetObject("winmgmts:" & "\\" & "localhost" & "\root\cimv2") 'WMI zum durchsuchen nutzen


'Auslesen der Nachricht der letzten Warnung bzw. des letzten Fehlers

Set letztesEvent = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent where (EventType = '3' OR EventType = '2')") 'Abfrage aller Ereignisse aus der Ereignisanzeige mit dem Eventtyp 1 (Fehler) und 2 (Warnung)

For Each objEvent In letztesEvent
letzte_Nachricht = objEvent.Message 'Schleife ??? etc.
Next


'Auslesen der Anzahl und Warnungen des aktuellen Tags

Set FehlerWarnungenTag = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent where (EventType = '3' OR EventType = '2')") 'Abfrage aller Ereignisse aus der Ereignisanzeige mit dem Eventtyp 1 (Fehler) und 2 (Warnung)
Anzahl_Events_Tag = FehlerWarnungenTag.Count


'Auslesen der Anzahl und Warnungen (gesamt)

Set FehlerWarnungenGesamt = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent where (EventType = '3' OR EventType = '2')") 'Abfrage aller Ereignisse aus der Ereignisanzeige mit dem Eventtyp 1 (Fehler) und 2 (Warnung)
Anzahl_Events_Gesamt = FehlerWarnungenGesamt.Count


'Anzeige der Werte in einer Windows-Box (optional)

wscript.echo "Letzte Nachricht: " & letzte_Nachricht & vbLf & "Anzahl Fehler/Warnungen heute: " & Anzahl_Events_Tag & vbLf & "Anzahl Fehler/Warnungen Gesamt: " & Anzahl_Events_Gesamt


'Werte in vorhandene Textdatei schreiben (optional)

Set ZugriffDatei = CreateObject("Scripting.FileSystemObject") 'Erzeugen eines Objekts für den Zugriff auf das Dateisystem
Set Datei = ZugriffDatei.OpenTextFile("E:\dd.txt",2) 'Textdatei E:\dd.txt im Schreibmodus (2) öffnen (mit dem oben genannten Objekt)

Datei.writeLine "Nachricht der letzten Warnung bzw. des letzten Fehlers: " & letzte_Nachricht
Datei.writeLine "Anzahl und Warnungen des aktuellen Tags: " & Anzahl_Events_Tag
Datei.writeLine "Anzahl und Warnungen (gesamt): " & Anzahl_Events_Gesamt

Datei.close 'E:\dd.txt schließen


Wie kann ich die Abfrage für die Anzahl der Fehler/Warnungen pro Tag so anpassen, dass diese stimmt?

Danke! (=


PS: Nicht schlecht für das erste VBScript oder? (=
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    HTMLWorld Foren-Übersicht
   VB, VBS, VBA, VB.NET
Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.