Vraag : auto de veiligheidslogboek van vraagvensters voor specifieke gebeurtenisidentiteitskaart

hi

I heeft met powershell voor een markt gelopen terwijl nu, zodat mijn vbscript. een weinig roestig is!
I am die een baan willen plannen om op een erfenis uitwisselings 2003 server in werking te stellen en 1009 gebeurtenissen uit te voeren van de veiligheid log.

I am de erfenisinfrastructuur controleren om onlangs gemigreerde gebruikers te verzekeren heeft niet toegang tot hun oude brievenbussen door fout - deze zullen natuurlijk binnenkort gesloten worden maar voor een week of zodat zou ik aan audit.

I am in werking stellend dumpeventlog.vbs houden van maar ik zou van iets houden dat ik auto-programma 1009 gebeurtenissen van het veiligheidslogboek…

I am niet kan slechts specifiek uitvoeren bekwaam om om het even wat in het erfenismilieu te installeren en powershell is geen-go.

Any veel gewaardeerd…

Cheers
Bry van hulpwijzers

Antwoord : auto de veiligheidslogboek van vraagvensters voor specifieke gebeurtenisidentiteitskaart

probeer dit vb

Concretiseer enkel de strTxtFile variabele met de weg voor een resultaatdossier. I recoment met een uitbreiding CSV
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

strComputer = „.“
Vastgestelde objWMIService = GetObject („winmgmts: “ & „{impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“)
Reeks colLoggedEvents = objWMIService.ExecQuery („selecteer * uit Win32_NTLogEvent waar Logfile = „Toepassing“ en“ & „EventCode = „1009““)

strResult = „Categorie, Naam van de Computer, Code van de Gebeurtenis, Bericht, Aantal van het Verslag, het de de Geschreven BronNaam, Tijd, de Tijd van de Gebeurtenis, Gebruiker“ & VbCrLf
Voor elk objEvent in colLoggedEvents
strResult = strResult & vervangen objEvent.Category & „,“ & objEvent.ComputerName & „,“ & objEvent.EventCode & „,“ & (objEvent.Message, VbCrLf, "") & „,“ & objEvent.RecordNumber & „,“ & objEvent.SourceName & „,“ & objEvent.TimeWritten & „,“ & objEvent.Type  & „,“ & objEvent.User & VbCrLf

Daarna


Const ForReading = 1
Const ForWriting = 2

strTxtFile = „DE WEG VAN HET DOSSIER VAN DE TEKST VAN RESULTATEN“

Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
Vastgestelde objFile = strTxtFile objFSO.OpenTextFile (, ware ForWriting,)
objFile.Write (strResult)
objFile.Close
Andere oplossingen  
 
programming4us programming4us