Cuestión : registro de seguridad auto de las ventanas de la pregunta para la identificación específica del acontecimiento

¡el hi

I ha estado funcionando con el powershell para una feria mientras que ahora, así que mi vbscript está un poco oxidado.! el
I que quiere programar un trabajo de funcionar en un servidor 2003 del intercambio de la herencia y de exportar 1009 acontecimientos de la seguridad log.

I que revisa la infraestructura de la herencia para asegurar a usuarios recientemente emigrados no está teniendo acceso a sus cajas viejas por error - éstos por supuesto serán cerrados pronto pero para una semana o así que mí quisiera a audit.

I que funciona dumpeventlog.vbs pero quisiera algo que puedo auto-horario específicamente exportar 1009 acontecimientos del

I del registro de seguridad solamente… no capaz de instalar cualquier cosa en el ambiente de la herencia y el powershell es un

Cheers
Bry de los indicadores de la ayuda de no-go.

Any… class= del

Respuesta : registro de seguridad auto de las ventanas de la pregunta para la identificación específica del acontecimiento

intentar este vb

Apenas ejemplificar la variable strTxtFile con la trayectoria para un archivo del resultado. Recoment I con una extensión de CSV
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

strComputer = “.”
Fijar el objWMIService = GetObject (“winmgmts: ¡” y “{impersonationLevel=impersonate}! \ \” y strComputer y “\ raíz \ cimv2”)
Fijar los colLoggedEvents = objWMIService.ExecQuery (“seleccionar * de Win32_NTLogEvent donde archivo de registro = “uso” y” y “EventCode = “1009” ")

strResult = “categoría, nombre de computadora, código del acontecimiento, mensaje, número récord, nombre de la fuente, tiempo escrito, tiempo del acontecimiento, usuario” y VbCrLf
Para cada uno objEvent en colLoggedEvents
el strResult = el strResult y objEvent.Category y “,” y objEvent.ComputerName y “,” y objEvent.EventCode y “,” y substituyen (objEvent.Message, VbCrLf, "") y “,” y objEvent.RecordNumber y “,” y objEvent.SourceName y “,” y objEvent.TimeWritten y “,” y objEvent.Type  y “,” y objEvent.User y VbCrLf

Después


Const ForReading = 1
Const ForWriting = 2

strTxtFile = “TRAYECTORIA del ARCHIVO de TEXTO de los RESULTADOS”

Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Fijar objFile = objFSO.OpenTextFile (strTxtFile, ForWriting, verdades)
objFile.Write (strResult)
objFile.Close
Otras soluciones  
 
programming4us programming4us