Usuário com melhor resposta
O esta errado nesse scritp para gravar eventos em arquivo .evt

Pergunta
-
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 & "_" & dtmThisDaystrComputer = "."
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")
NextSet colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='System'")
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog(strLog4 & strBackupName & _
"_System.evt")
NextSet colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Security'")
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog(strLog4 & strBackupName & _
"_Security.evt")
Next
Respostas
-
Olá,
Basta alterar a linha abaixo:
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
Para
strBackupName = "c:\" & dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
Marcelo, você esta usando um usuário administrador??? Teste em outra máquina e nos retorne.
Até mais,
Jesiel
Obs.: Se útil, classifique- Sugerido como Resposta diniz terça-feira, 11 de agosto de 2009 01:41
- Marcado como Resposta Marcelo TI quinta-feira, 13 de agosto de 2009 00:12
Todas as Respostas
-
-
Ba Jesiel
Ai que ta o ponto, tem log no security ate de mais, mais ele executa o scritp sem erros e nao gera o security.evt ele gera somente o application e o system !!!!!
tem alguma outra forma outro comando a se usar com vbs que gere esses arquivos ???
Abraço. -
-
Ba dinis.
Não sei o que acontece então, vou testar em outra maquina.
E pra limpar os eventos apos grava vc pode usar o comando objLogFile.ClearEventLog() ficaria assim por exemplo:
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog(strLog4 & strBackupName & _
"_Security.evt")
objLogFile.ClearEventLog()- Sugerido como Resposta diniz terça-feira, 11 de agosto de 2009 01:41
-
-
Olá,
Basta alterar a linha abaixo:
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
Para
strBackupName = "c:\" & dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
Marcelo, você esta usando um usuário administrador??? Teste em outra máquina e nos retorne.
Até mais,
Jesiel
Obs.: Se útil, classifique- Sugerido como Resposta diniz terça-feira, 11 de agosto de 2009 01:41
- Marcado como Resposta Marcelo TI quinta-feira, 13 de agosto de 2009 00:12
-
-