MOM 2005 : Rechercher un mot clé dans un fichier log actif

Une fonction qui permet de rechercher un mot clé dans un fichier log actif en utilisant les outils Tail.exe et Grep.exe
Dans l’exemple, ces fichiers sont dans le dossier C:\mom et la recherche se fait sur les 1000 dernières lignes
Cette fonction renvoit le nombre de ligne qui contiennent les ou les mots clés recherchés
 
 
 
Function RechercheChaine(strFichierLog,strRecherche)

‘ But :  Renvoi le nombre de ligne contenant le mot recherché 
‘ Arguments : nom du fichier, mot recherchée, si plusieurs mots, insérer des espaces
‘ Retour : Nombre de lignes
Dim objShell
Dim objExecObject
Dim strLine
Dim strResultat
Dim IntNbLigne
IntNbLigne = 0
Set objShell=CreateObject("Wscript.shell")
Set objExecObject=objShell.exec("%COMSPEC% /C c:\mom\tail.exe /1000 " & strFichierLog & " | c:\mom\qgrep.exe " & strRecherche & "")
 Do Until objExecObject.stdOut.AtEndOfStream
     strLine=objExecobject.stdOut.ReadLine()
    strResultat=Instr(strLine, strRecherche)
    If strResultat<>0 THEN
        IntNbLigne = IntNbLigne + 1
       End If
 Loop
RechercheChaine = IntNbLigne
End Function
Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :