copier le journal des événements de Windows dans une base de donnée Ac

copier le journal des événements de Windows dans une base de donnée Ac - VB/VBA/VBS - Programmation

Marsh Posté le 14-07-2005 à 16:59:33    

J'ai besoin d'enregistrer les événements du journal des événements de windows dans une base de donnée.
J'ai Access 2000 et il y a des script chez Microsoft. ( http://www.microsoft.com/technet/s [...] vvb03.mspx )
J'ai donc pompé un script que voici:
 

Code :
  1. Dim objConn
  2. Dim objRS
  3. Dim objWMIService
  4. Dim colRetrievedEvents
  5. Set objConn = CreateObject("ADODB.Connection" )
  6. Set objRS = CreateObject("ADODB.Recordset" )
  7. objConn.Open "DSN=EventLogs;"
  8. objRS.CursorLocation=3
  9. objRS.Open "SELECT * FROM EventTable" , objConn, 3, 3
  10. strComputer = "."
  11. Set objWMIService = GetObject("winmgmts:" _
  12.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  13. Set colRetrievedEvents = objWMIService.ExecQuery _
  14.     ("Select * from Win32_NTLogEvent" )
  15. For Each objEvent in colRetrievedEvents
  16.     objRS.AddNew
  17.     objRS("Category" ) = objEvent.Category
  18.     objRS("ComputerName" ) = objEvent.ComputerName
  19.     objRS("EventCode" ) = objEvent.EventCode
  20.     objRS("Message" ) = objEvent.Message
  21.     objRS("RecordNumber" ) = objEvent.RecordNumber
  22.     objRS("SourceName" ) = objEvent.SourceName
  23.     objRS("TimeWritten" ) = objEvent.TimeWritten
  24.     objRS("Type" ) = objEvent.Type
  25.     objRS("User" ) = objEvent.User
  26.     objRS.Update
  27. Next
  28. objRS.Close
  29. objConn.Close


 
Le script fonctionne bien jusqu'à ce qu'il rencontre un événement de type "erreur".
et là j'ai une fenêtre et un message d'erreur:
 
Windows Script Host
Script: c:\.......\test.vbs
Ligne: 31
Charact: 5
Error: L'état E_FAIL a été envoyé par le fournisseur de données ou par un autre service
Code: 80004005
Source: Microsoft Cursor Engine
 
Parallèlement j'ai deux événements dans le journal de sécurité de type audit des échecs:
 
Type de l'événement : Audit des échecs
Source de l'événement : Security
Catégorie de l'événement : Utilisation d'un privilège  
ID de l'événement : 578
Date :  14.07.2005
Heure :  14:06:39
Utilisateur : test\toto
Ordinateur : toto-XP
Description :
Opération sur objet privilégié :
   Serveur objet : Eventlog
   Handle d'objet : 0
   Id. de processus : 716
   Utilisateur principal : toto-XP$
   Domaine principal : test
   Id. de session principale : (0x0,0x3E7)
   Utilisateur client : toto
   Domaine client : test
   Id. de la session cliente : (0x0,0x32886)
   Privilèges : SeSecurityPrivilege
 
Si il y a quelqu'un pour me donner un coup de main..
 
Merci d'avance
 
Denis

Reply

Marsh Posté le 14-07-2005 à 16:59:33   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed