Frage : Selbstfragenfenster-Sicherheitsmaschinenbordbuch für spezifische Ereignisidentifikation

hi

I sind mit powershell für eine Messe gelaufen, während jetzt, also mein vbscript. ein wenig rostiges ist! das
I morgens wünschend einen Job festlegen, auf einen Vermächtnisaustauschbediener 2003 zu laufen und 1009 Ereignisse von der Sicherheit log.

I morgens zu exportieren die Vermächtnisinfrastruktur revidierend, um vor kurzem abgewanderte Benutzer sicherzustellen greifen auf ihre alten Briefkästen nicht durch Fehler zurück - diese werden selbstverständlich kurz geschlossen, aber für eine Woche oder also mich möchte zu audit.

I morgens dumpeventlog.vbs laufen lassend, aber ich möchte etwas, dem ich der Selbst-zeitplan kann 1009 Ereignisse vom Sicherheitsmaschinenbordbuch nur…

I morgens spezifisch exportieren nicht fähig, alles in die Vermächtnisumwelt anzubringen und powershell ein no-go.

Any Hilfen-Zeiger viel geschätztes…

Cheers
Bry ist

Antwort : Selbstfragenfenster-Sicherheitsmaschinenbordbuch für spezifische Ereignisidentifikation

dieses vb versuchen

Instantiate einfach die strTxtFile Variable mit dem Weg für eine Resultatsakte. Recoment I mit einer CSV Verlängerung
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

strComputer = „.“
objWMIService = GetObject einstellen („winmgmts: “ u. „{impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
colLoggedEvents = objWMIService.ExecQuery einstellen („* von Win32_NTLogEvent vorwählen in dem Protokolldatei = „Anwendung“ und“ u. „EventCode = „1009“ ")

strResult = „Kategorie, Computerbezeichnung, Ereignis-Code, Mitteilung, Rekordzahl, Quellname, Zeit geschrieben, Ereignis-Zeit, Benutzer“ u. VbCrLf
Für jedes objEvent in den colLoggedEvents
strResult = strResult u. objEvent.Category u. „,“ u. objEvent.ComputerName u. „,“ u. objEvent.EventCode u. „,“ u. ersetzen (objEvent.Message, VbCrLf, "") u. „,“ u. objEvent.RecordNumber u. „,“ u. objEvent.SourceName u. „,“ u. objEvent.TimeWritten u. „,“ u. objEvent.Type  u. „,“ u. objEvent.User u. VbCrLf

Zunächst


Const ForReading = 1
Const ForWriting = 2

strTxtFile = „RESULTATS-TEXTDATEI-WEG“

objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objFile einstellen = objFSO.OpenTextFile (strTxtFile, ForWriting, zutreffend)
objFile.Write (strResult)
objFile.Close
Weitere Lösungen  
 
programming4us programming4us