VB - Journal d'evenement.

Question

Bonjour,

j'ai un problème, j'essaye de lire le journal d'evenement de windows. Ce code fonctionne, mais le problème est que
le requete SQL est extremement longue. Elle analyse toute les lignes malgrès le critère de date. avec plus de 100 000 enregistrements, elle mais plus de 10 minutes a s'exécuter et finit par planter. Comment amèliorer cette requette ?

Merci de votre aide. 
strComputer = "."

objWMIServices = GetObject(

"winmgmts:" & 
"{impersonationLevel=impersonate}!\"
 & strComputer & 
"\root\cimv2"
)

objWMIObjectSet = objWMIServices.ExecQuery("Select * from Win32_NTLogEvent WHERE timegenerated >" & datelimite)

For
Each
 objWMIObject 
In
 objWMIObjectSet

Dim row 
As

String
() = {objWMIObject.ComputerName, Mid(objWMIObject.TimeGenerated, 1, 8), objWMIObject.SourceName}
resultat.Rows.Add(row)

Next

cs_JMO · Answer

Bonjour à tous,

Un joli lien (en vbs) sur l'EventViewer:
http://www.vbfrance.com/codes/EVENTVIEWER-NTLOGEVENT-EXTRACTION-INFORMATIONS-JOURNAL-OBSERVATION-EVENEMENTS-WINDOWS_40478.aspx

jean-marc

furb59 · Answer

Bonjour, et merci de votre reponse.
J'ai dèjà exploré ce lien, mais mon problème reste le même.

Sinon existe-t-il une autre méthode que WMI et plus rapide ?

cs_JMO · Answer

Re,

Attention:
TimeGenerated renvoie une date au format "aaaammjjhhmnss".
Dans
objWMIObjectSet = objWMIServices.ExecQuery("Select * from Win32_NTLogEvent WHERE timegenerated >" & datelimite),

la variable "datelimite"
  est-elle au même format ??? 

Avez-vous tester le script en vbs ???

jean-marc

furb59 · Answer

Le Script fonctionne très bien mais et affiche le resultat dans mon tableau, mais passé 50 000 ligne ca plante. de plus, le filtre sur la date fonctionne très bien, mais le problème est que le programme lit tout les eregistrements. Et il y en a + de 100 000.

VB - Journal d'evenement.

4 réponses

Votre réponse

Discussions similaires