logs Kerio 2.5

Bonjour,

Pouvez vous me dire si je peux exploiter, et avec quel outil, les logs
de mon Kerio 2.5.
Je souhaiterai savoir quel sont les tentatives de connexion sur mon
reseau venant de l'exterieur.

Merci de vos posts.

Yannos99

TinyLogger fait ça, non ?

Antoine

log kério

Bonjour
voir le soft : tinylogger
http://hem.passagen.se/pluppis/dator_egnaprogram.html
a+
--
---
généalogie http://www.bruno84.fr.st
--
the radio : www.rcf-lumieres.fr.st

Yannos99 a écrit le 23/05/2004 :

Bonjour,

Pouvez vous me dire si je peux exploiter, et avec quel outil, les logs de mon
Kerio 2.5.
Je souhaiterai savoir quel sont les tentatives de connexion sur mon reseau
venant de l'exterieur.

Merci de vos posts.

Yannos99

Tu peux aussi essayer cette macro Excel que j'ai écrite et que
j'utilise qui transforme le fichier Log en tableau Excel en anamysant
chaque ligne pour la découper en colonnes.
Attention : ca ne marche que s'il y a moins de 65535 lignes dans ton
log, sinon on est limité par la taille maxi d'un tableau Excel.

Ce n'est surement pas génial (une grande partie a été écrite en mode
"enregistrement de macro", mais ça marche et ça me rends bien
service...

Après, une fois sous Excel, tu dispose de tous les outils Filtre, tri,
tableau croisé dynamique, etc. pour analyser finement to log.

Bonne chance

======== Copier à partir d'ici ==================== Sub ChargeFilterLog()
'
' Transformation du Filter.log de Kerio en tableau Excel
'
Workbooks.OpenText FileName:= _
"C:Program FilesKerioPersonal Firewallfilter.log",
Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, OtherChar:=":",
FieldInfo:=Array( _
Array(0, 1), Array(1, 9), Array(3, 1), Array(23, 9), Array(30,
1))
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("C1"),
DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:=True, Space:úlse, Other:úlse,
OtherChar _
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
Columns("C:C").Select
Selection.TextToColumns Destination:=Range("F1"),
DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:úlse, Space:úlse, Other:=True,
OtherChar _
:=":", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
Selection.Delete Shift:=xlToLeft
Selection.TextToColumns Destination:=Range("H1"),
DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:úlse, Space:úlse, Other:=True,
OtherChar _
:=">", FieldInfo:=Array(Array(1, 1), Array(2, 1))
Selection.Delete Shift:=xlToLeft
Selection.TextToColumns Destination:=Range("I1"),
DataType:=xlFixedWidth, _
OtherChar:=">", FieldInfo:=Array(Array(0, 9), Array(8, 1))
Selection.Delete Shift:=xlToLeft

' Décodage du "From"
Columns("G:I").Select
Selection.Insert Shift:=xlToRight
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Activate
ActiveCell.FormulaR1C1 =
"=IF(ISERROR(SEARCH(""["",RC[-1])),MID(RC[-1],2,LEN(RC[-1])-2),MID(LEFT(RC[-1],LEN(RC[-1])-2),SEARCH(""["",RC[-1])+1,255))"
Selection.Copy
Range("G1", ActiveCell).Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Columns("G:G").Select
Selection.TextToColumns Destination:=Range("G1"),
DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:úlse, Space:úlse, Other:=True,
OtherChar _
:=":", FieldInfo:=Array(Array(1, 2), Array(2, 1))
Range("F1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 3).Activate
ActiveCell.FormulaR1C1 =
"=IF(ISERROR(SEARCH(""["",RC[-3])),"""",MID(RC[-3],2,SEARCH(""["",RC[-3])-3))"
Selection.Copy
Range("I1", ActiveCell).Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Range("F:F").Select
Selection.Delete Shift:=xlToLeft

' Décodage du "To"
Columns("J:L").Select
Selection.Insert Shift:=xlToRight
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Activate
ActiveCell.FormulaR1C1 =
"=IF(ISERROR(SEARCH(""["",RC[-1])),RC[-1],MID(LEFT(RC[-1],LEN(RC[-1])-1),SEARCH(""["",RC[-1])+1,255))"
Selection.Copy
Range("J1", ActiveCell).Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Columns("J:J").Select
Selection.TextToColumns Destination:=Range("J1"),
DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:úlse,
Tab:úlse, _
Semicolon:úlse, Comma:úlse, Space:úlse, Other:=True,
OtherChar _
:=":", FieldInfo:=Array(Array(1, 2), Array(2, 1))
Range("I1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 3).Activate
ActiveCell.FormulaR1C1 =
"=IF(ISERROR(SEARCH(""["",RC[-3])),"""",LEFT(RC[-3],SEARCH(""["",RC[-3])-2))"
Selection.Copy
Range("L1", ActiveCell).Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
Range("I:I").Select
Selection.Delete Shift:=xlToLeft

' Ajout d'une ligne de titres
Cells.Select
Cells.EntireColumn.AutoFit
Columns("H:H").Select
Selection.ColumnWidth = 52
Columns("K:K").Select
Selection.ColumnWidth = 52
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("B1").Select
ActiveCell.FormulaR1C1 = "Date - Heure"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Règle"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Status"
Range("E1").Select
ActiveCell.FormulaR1C1 = "Protocole"
Range("F1").Select
ActiveCell.FormulaR1C1 = "From IP@"
Range("G1").Select
ActiveCell.FormulaR1C1 = "From Port"
Range("H1").Select
ActiveCell.FormulaR1C1 = "From Name"
Range("I1").Select
ActiveCell.FormulaR1C1 = "To IP@"
Range("J1").Select
ActiveCell.FormulaR1C1 = "To Port"
Range("K1").Select
ActiveCell.FormulaR1C1 = "To Name"
Range("L1").Select
ActiveCell.FormulaR1C1 = "Owner"
Rows("1:1").Select
Selection.Font.Bold = True
ActiveWindow.LargeScroll ToRight:=-2
ActiveWindow.SplitRow = 0.882352941176471
ActiveWindow.FreezePanes = True
Cells.Select
Selection.AutoFilter
ActiveWindow.LargeScroll ToRight:=-2
Range("A2").Select
ActiveWorkbook.SaveAs FileName:= _
"C:Filter.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse,
_
CreateBackup:úlse
End Sub


============ Fin de copie ==========================
--
Laurent GRENET