Ba galera boa tarde.
Encontrei esse scritp no scritp center e coloquei algumas linhas a mais para grava os demais tipos de eventos porem ele so grava o de aplicativo, e sistema, o de segurança ele nao grava em arquivo o que pode estar errado..
Valeu galera
dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Application'")
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog(strLog4 & strBackupName & _
"_application.evt")
Next
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='System'")
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog(strLog4 & strBackupName & _
"_System.evt")
Next
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Security'")
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog(strLog4 & strBackupName & _
"_Security.evt")
Next
