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 :
- Dim objConn
- Dim objRS
- Dim objWMIService
- Dim colRetrievedEvents
- Set objConn = CreateObject("ADODB.Connection" )
- Set objRS = CreateObject("ADODB.Recordset" )
- objConn.Open "DSN=EventLogs;"
- objRS.CursorLocation=3
- objRS.Open "SELECT * FROM EventTable" , objConn, 3, 3
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
- Set colRetrievedEvents = objWMIService.ExecQuery _
- ("Select * from Win32_NTLogEvent" )
- For Each objEvent in colRetrievedEvents
- objRS.AddNew
- objRS("Category" ) = objEvent.Category
- objRS("ComputerName" ) = objEvent.ComputerName
- objRS("EventCode" ) = objEvent.EventCode
- objRS("Message" ) = objEvent.Message
- objRS("RecordNumber" ) = objEvent.RecordNumber
- objRS("SourceName" ) = objEvent.SourceName
- objRS("TimeWritten" ) = objEvent.TimeWritten
- objRS("Type" ) = objEvent.Type
- objRS("User" ) = objEvent.User
- objRS.Update
- Next
- objRS.Close
- 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
FORUM HardWare.fr
