Questione : ceppo di sicurezza auto delle finestre di domanda per l'identificazione specifica di evento

il hi

I sta funzionando con il powershell per una fiera mentre ora, in modo da il mio vbscript è poco un arrugginito.! il
I che vuole programmare un lavoro funzionare su un assistente 2003 di scambio dell'eredità ed esportare 1009 eventi dalla sicurezza log.

I che verifica l'infrastruttura dell'eredità per accertare gli utenti recentemente migrati non sta accedendo alle loro vecchie cassette postali dall'errore - questi naturalmente saranno chiusi presto ma per una settimana o in modo da io gradirebbe a audit.

I che fa funzionare dumpeventlog.vbs ma gradirei qualcosa che potessi auto-programma specificamente esportare 1009 eventi dal

I del ceppo di sicurezza soltanto… non in grado di installare qualche cosa nell'ambiente dell'eredità e il powershell è un

Cheers
Bry degli indicatori di aiuto di no-go.

Any… class= del

Risposta : ceppo di sicurezza auto delle finestre di domanda per l'identificazione specifica di evento

provare questo vb

Esemplificare appena la variabile strTxtFile con il percorso per una lima di risultato. Recoment I con un'estensione di CSV
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

strComputer = “.„
Regolare il objWMIService = GetObject (“winmgmts: „ & “{impersonationLevel=impersonate}! \ \„ & strComputer & “\ radice \ cimv2„)
Regolare i colLoggedEvents = objWMIService.ExecQuery (“selezionare * a partire da Win32_NTLogEvent dove Logfile = “l'applicazione„ e„ & “EventCode = “1009„ ")

strResult = “categoria, nome di calcolatore, codice di evento, messaggio, numero record, nome di fonte, tempo scritto, tempo di evento, utente„ & VbCrLf
Per ciascuno objEvent nei colLoggedEvents
lo strResult = lo strResult & objEvent.Category & “,„ & objEvent.ComputerName & “,„ & objEvent.EventCode & “,„ & sostituiscono (objEvent.Message, VbCrLf, "") & “,„ & objEvent.RecordNumber & “,„ & objEvent.SourceName & “,„ & objEvent.TimeWritten & “,„ & objEvent.Type  & “,„ & objEvent.User & VbCrLf

Dopo


Const ForReading = 1
Const ForWriting = 2

strTxtFile = “PERCORSO della LIMA di TESTO di RISULTATI„

Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Regolar objFile = objFSO.OpenTextFile (strTxtFile, ForWriting, allineare)
objFile.Write (strResult)
objFile.Close
Altre soluzioni  
 
programming4us programming4us