Event Log Error - Source: WMI Event ID: 10

Hello,

A new clean install of Windows 7 Pro on Intel NUC i5/8GB. Trying to clear some event log errors.
I have one particular error:

Source: WMI Event ID: 10
Event filter with query "SELECT * FROM __InstanceModificationEvent WITHIN 60 WHERE TargetInstance
ISA "Win32_Processor" AND TargetInstance.LoadPercentage > 99" could not be reactivated in namespace
"//./root/CIMV2" because of error 0x80041003. Events cannot be delivered through this filter until the problem is corrected.


After Googling Reading I found references to fix this with a .vbs script... But they have 2 different scripts
I'm not sure if they are the same..?? I don't understand the code...

Any guidance welcome... Thanks :)

Fix Script 1

Code:

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_

next

Fix Script 2

Code:

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\subscription")

Set obj1 = objWMIService.ExecQuery("select * from __eventfilter where name='BVTFilter' and query='SELECT * FROM __InstanceModificationEvent WITHIN 60 WHERE TargetInstance ISA ""Win32_Processor"" AND TargetInstance.LoadPercentage > 99'")

For Each obj1elem in obj1

set obj2set = obj1elem.Associators_("__FilterToConsumerBinding")

set obj3set = obj1elem.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 obj1elem.GetObjectText_

obj1elem.Delete_

Next

Hi

Dont worry its a known MS bug.
No problems are caused by it - just the stupid event error.


Roy

torchwood said:

Hi

Dont worry its a known MS bug.
No problems are caused by it - just the stupid event error.

Roy

Hi,

Thanks.. I read it does not cause an issue...
Being somewhat OCD, would be nice to clear them :)

Hence the request for help in clearing them, hopefully by one of the scripts above...

Cheers

Hi..

I just followed the MS Fix for this... It was updated 15th March 2019... No more Error

https://support.microsoft.com/en-gb/...nstall-service