Bonjour,
Je souhaiterai creer un script qui me permette d'envoyer un mail qd un certain evenement ce met ds les log system.
en fait c est pour une machine cliente ou personne n'est dessus et j'aimerai savoir qd mon raid 1 Tombe.
Voila ce que j'ai fe en compilant plusieur script kque j'ai trouvé. Mon soucis ici c que se n'est pas qd le log se cree mais sil est deja ds les logs il me previent.
-------------------------------------------------------------------------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'System' and " _
& "EventCode = '9'" )
Set objEmail = CreateObject("CDO.Message" )
objEmail.From = "Serveur@alerte.local"
objEmail.To = "rg@xxxx.com"
objEmail.Subject = "RAID Down"
objEmail.Textbody = "ALERTE RAID DETECTEE SUR SERVEUR X"
objEmail.Send
Wscript.Echo "Alerte RAID detectee"
-------------------------------------------------------------------------------------
A la limite une solution possible serait de supprimer ce log a la fin de mon script ms c pas super ou encore de lancer lescript tte les 5 min et de verifier si un evenement ac ID 9 a eu lieu ds les 5 dernieres minutes.
Quelqu'un peu m'aider????
