bombimbom
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Dim D As Date
D = Format(Now, "yyyy-MM-dd")
Dim fileNamelog As String = "C:\log\log\" & D & ".txt"
If IO.File.Exists(fileNamelog) = True Then
IO.File.Delete(fileNamelog)
End If
Dim eventLogApp As New System.Diagnostics.EventLog("Security")
Dim eventLogEntry As System.Diagnostics.EventLogEntry
Dim eventCntr As Integer = 1
Dim s As String = 4800
For Each eventLogEntry In eventLogApp.Entries
If eventLogEntry.EventID = 4800 Or eventLogEntry.EventID = 4648 Then
log("Event Number:" & eventCntr)
log(eventLogEntry.EntryType.ToString)
log("Время записи в журнал" & " " & eventLogEntry.TimeGenerated.ToString)
log(eventLogEntry.Source.ToString)
log(eventLogEntry.Category.ToString)
log(eventLogEntry.EventID.tostring) 'подскажите как тут указать чтение только по коду 4800 и 4648
log(eventLogEntry.MachineName.ToString)
log(eventLogEntry.Message.ToString)
log("-----------------------------------------------")
eventCntr = eventCntr + 1
End If
Next
. вот так не работает? .. или куда вы Иф ставите? ....
ЗЫ:
buser , надо еще для ТС провести лекцию, как в VB.NET лямбды пишутся .. :)
