Hallo zusammen
Ich dachte immer so ein VBScript ist einfach und trotzdem komme ich einfach nicht auf die Lösung.
Ich wollte ein Script schreiben, welches im Windows EventLog in der Rubrik Application die Anzahl der Einträge für die EventID 4101 zusammenzählt. Sollte das Event pro Tag mehr als ein Mal vorkommen, soll der Computer sofort heruntergefahren werden. Damit will ich verhindern, dass der Computer mehr als ein mal täglich verwendet wird. Ihr denkt jetzt vielleicht, da gibt es einfachere Lösungen dann nur zu :).
Ich habe das Script im Inet zusammengepastet nur folgendes kapiere ich nicht, ich bin auch ein totaler Anfänger:
Wie schränke ich das Select* Statement noch zusätzlich auf DATE = heute ein?
Hier der Code:
Danke
Ich dachte immer so ein VBScript ist einfach und trotzdem komme ich einfach nicht auf die Lösung.
Ich wollte ein Script schreiben, welches im Windows EventLog in der Rubrik Application die Anzahl der Einträge für die EventID 4101 zusammenzählt. Sollte das Event pro Tag mehr als ein Mal vorkommen, soll der Computer sofort heruntergefahren werden. Damit will ich verhindern, dass der Computer mehr als ein mal täglich verwendet wird. Ihr denkt jetzt vielleicht, da gibt es einfachere Lösungen dann nur zu :).
Ich habe das Script im Inet zusammengepastet nur folgendes kapiere ich nicht, ich bin auch ein totaler Anfänger:
Wie schränke ich das Select* Statement noch zusätzlich auf DATE = heute ein?
Hier der Code:
Quellcode
- 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 Login_Zahl = objWMIService.ExecQuery _
- ("Select * from Win32_NTLogEvent where (EventCode = '4101' AND [u][i][b]HIER SOLLTE DAS DATUMSTATEMENT KOMMEN ALSO Z.B. DATE=TODAY [/b][/i][/u])")
- txt=""
- For Each objEvent in Login_Zahl
- MsgBox "Ereignisdatum: " & objEvent.TimeGenerated & vbCrLf & "Beschreibung: " & objEvent.Message '
- 'Anzahl_Winlogons = Login_Zahl.count
- 'wscript.echo "Anzahl Logins: " & Anzahl_Winlogons
- Set ZugriffDatei = CreateObject("Scripting.FileSystemObject") 'Erzeugen eines Objekts für den Zugriff auf das Dateisystem
- Set Datei = ZugriffDatei.OpenTextFile("C:\Eventlg\event.txt",2) 'Textdatei C:\Eventlg\event.txt im Schreibmodus (2)
- 'öffnen (mit dem oben genannten Objekt)
- Datei.writeLine "Anzahl Fehler: " & Anzahl_Winlogons
- Datei.close 'C:\Eventlg\event.txt schließen
- next
Danke