LER EVENT VIEWER

ALEVALE 04/04/2012 11:37:07
#399090
Pessoal encontrei esse código na net ele funcionar porém queria minizar ele é possível realizar já na procurar passando tipo de EentID ?
Não depois de ele realizar a procurar ele verificar o tipo de evento com o IF, gostaria que fizesse a procurar filtrando somente o Evento 560

Dim EventLog1 As New System.Diagnostics.EventLog()
EventLog1.Log = [Ô]Security[Ô]
EventLog1.MachineName = [Ô]SERVIDOR1[Ô]
EventLog1.
[ô]Dim Entry1 As EventLogEntry
For Each Entry1 In EventLog1.Entries
If Entry1.EventID = 560 And Entry1.TimeGenerated > Now.AddDays(-2) Then
If Microsoft.VisualBasic.InStr(Entry1.Message, [Ô]DELETE[Ô]) Then
MsgBox(Entry1.Message)
Call fncTeste(Entry1.Message)
End If

End If
Next
KERPLUNK 04/04/2012 13:34:22
#399096 Resposta escolhida
Isso aqui é mais enxuto:
Dim eventos As New System.Diagnostics.EventLog([Ô]Security[Ô], [Ô]SERVIDOR1[Ô])
Dim eventosSelecionados As List(Of System.Diagnostics.EventLogEntry) = eventos.Entries.Cast(Of System.Diagnostics.EventLogEntry)().Where(Function(evt) evt.EventID = 560 And evt.TimeGenerated = DateTime.Now.AddDays(-2) And evt.Message.Contains([Ô]DELETE[Ô])).ToList()

For Each item As System.Diagnostics.EventLogEntry In eventosSelecionados
MsgBox(item.Message)
fncTeste(item.Message)
Next
Tópico encerrado , respostas não são mais permitidas
Voltar