4 réponses
Bonjour,
En cherchant un peu voilà ce que j'ai trouver sur le site de Microsoft :
https://docs.microsoft.com/fr-fr/troubleshoot/windows-client/system-management-components/event-id-10-logged-application-log-after-install
En cherchant un peu voilà ce que j'ai trouver sur le site de Microsoft :
https://docs.microsoft.com/fr-fr/troubleshoot/windows-client/system-management-components/event-id-10-logged-application-log-after-install
Normalement il n'y a rien de sorcier je vais essayer de t'expliquer plus simplement :
Ouvre le bloc note
Colle le code suivant :
Ensuite clique sur fichier -> enregistrer sous
en nom de fichier tu marque : test.vbs
Puis enregister
Ensuite double clique sur le fichier test.vbs
Tu as ce message après la manip ?
Ouvre le bloc note
Colle le code suivant :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\subscription")
Set obj1 = objWMIService.Get("__EventFilter.Name='BVTFilter'")
set obj2set = obj1.Associators_("__FilterToConsumerBinding")
set obj3set = obj1.References_("__FilterToConsumerBinding")
For each obj2 in obj2set
WScript.echo "Deleting the object"
WScript.echo obj2.GetObjectText_
obj2.Delete_
next
For each obj3 in obj3set
WScript.echo "Deleting the object"
WScript.echo obj3.GetObjectText_
obj3.Delete_
next
WScript.echo "Deleting the object"
WScript.echo obj1.GetObjectText_
obj1.Delete_
Ensuite clique sur fichier -> enregistrer sous
en nom de fichier tu marque : test.vbs
Puis enregister
Ensuite double clique sur le fichier test.vbs
Tu as ce message après la manip ?
une fois double clic il n'execute rien peut etre j'ai mal enregistré il reprend strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\subscription")
Set obj1 = objWMIService.Get("__EventFilter.Name='BVTFilter'")
set obj2set = obj1.Associators_("__FilterToConsumerBinding")
set obj3set = obj1.References_("__FilterToConsumerBinding")
For each obj2 in obj2set
WScript.echo "Deleting the object"
WScript.echo obj2.GetObjectText_
obj2.Delete_
next
For each obj3 in obj3set
WScript.echo "Deleting the object"
WScript.echo obj3.GetObjectText_
obj3.Delete_
next
WScript.echo "Deleting the object"
WScript.echo obj1.GetObjectText_
obj1.Delete_
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\subscription")
Set obj1 = objWMIService.Get("__EventFilter.Name='BVTFilter'")
set obj2set = obj1.Associators_("__FilterToConsumerBinding")
set obj3set = obj1.References_("__FilterToConsumerBinding")
For each obj2 in obj2set
WScript.echo "Deleting the object"
WScript.echo obj2.GetObjectText_
obj2.Delete_
next
For each obj3 in obj3set
WScript.echo "Deleting the object"
WScript.echo obj3.GetObjectText_
obj3.Delete_
next
WScript.echo "Deleting the object"
WScript.echo obj1.GetObjectText_
obj1.Delete_
Bonjour , est ce que ton icone ressemble a cela :
http://www.chantal11.com/wp-content/uploads/2009/04/3-icone.jpg
http://www.chantal11.com/wp-content/uploads/2009/04/3-icone.jpg
oui ça ressemble voici le fichier de script VBS cript en double clic il m'envoie ce message deleting object je fais ok apres il marque instance of commandLineEventConsumer commandLineTemplate="cscript KernCap.vbs";CreatorSID={1,5,0,0,0,0,0,5,21,0,0,0,107,206,164,63,163,98,236,21,129,91,79,171,244,1,0,0};Name="BVTConsumer";RunInteractively=FALSE;WorkingDirectory="C\\\\tools\\\\kernarate";ok script:c:\Users\sone\Document\test.vbs ligne 18: caract: 17 erreur:acces refusé code:80041003 source:SWbemObjectEx ok
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\subscription")
Set obj1 = objWMIService.Get("__EventFilter.Name='BVTFilter'")
set obj2set = obj1.Associators_("__FilterToConsumerBinding")
set obj3set = obj1.References_("__FilterToConsumerBinding")
For each obj2 in obj2set
WScript.echo "Deleting the object"
WScript.echo obj2.GetObjectText_
obj2.Delete_
next
For each obj3 in obj3set
WScript.echo "Deleting the object"
WScript.echo obj3.GetObjectText_
obj3.Delete_
next
WScript.echo "Deleting the object"
WScript.echo obj1.GetObjectText_
obj1.Delete_
qd tu vois tous ces trucs la aie aie aie