Microsoft-Windows-WMIエラー,ID:10,クエリ"SELECT * FROM_InstanceModificationEvent WITHIN 60が何だって？

新規捕獲のノートパソコンでMicrosoft-Windows-WMIエラー,ID:10を記録。
つか説明「クエリ"SELECT * FROM_InstanceModificationEvent WITHIN 60 WHERE TargetInstance ISA "Win32_Processor" AND TargetInstance.LoadPercentage > 99" のイベントフィルターを名前空間 "//./root/CIMV2" 内で再度使用できませんでした。原因はエラー 0x80041003です。問題が解決されなければ、このフィルターではイベント表示できません。」が長くて要点が絞れないんだけど。

.

Microsoft-Windows-WMIエラー,ID:10

ログの名前:Application
ソース: Microsoft-Windows-WMI
イベントID:10
タスクのカテゴリ:なし
レベル:エラー
キーワード:クラシック
ユーザー: N/A
コンピューター:sarujie-HP
説明:クエリ"SELECT * FROM_InstanceModificationEvent WITHIN 60 WHERE TargetInstance ISA "Win32_Processor" AND TargetInstance.LoadPercentage > 99" のイベントフィルターを名前空間 "//./root/CIMV2" 内で再度使用できませんでした。原因はエラー 0x80041003です。問題が解決されなければ、このフィルターではイベント表示できません。

.




掴み所が無いエラー内容だよね。
とか言いながら検索したらヒットだわ。 microsoft_support/文書番号: 950375「Windows Vista Service Pack 1、Windows 2008、Windows 7またはWindows Server 2008 R2をインストールした後にイベントID：10がアプリケーションログに記録されます。」

.




原因はWMIフィルタと言うセキュリティ関連フィルタへのアクセス権らしい。 この問題を解決するには、イベントID：10停止のスクリプトを実行すればゞ(￣ー￣ )イイんだって。

1,テキスト(.txt)を開きmicrosoft_support/文書番号: 950375記載のコードを貼り付ける(記事末にも記載)。
2,名前を付けて保存→「Test.vbs 」で任意の場所に保存。
3,Test.vbs を右クリックでコードを実行する。

ちなみにTest.vbsのスクリプト実行は一瞬で終わる。
「開く」だろうが「コマンドプロントで開く」だろうが瞬きしてたら解りません。だから．．．何度も実行した猿知恵です（笑）。言い訳だが、何度実行しても不具合は無いね。

システム再起動でMicrosoft-Windows-WMIエラー,ID:10が停止＝記録されなければ宜しいなう。

.




＜イベントID：10停止コード＞

◆
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_
◆