"//./root/CIMV2" because of error 0x80041003. Events cannot be delivered through this filt

Posted 2020-11-10 学习笔记

windows系统日志错误信息:

 

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.

参考来源：

Event ID 10 is logged in the Application log after you install Service Pack 1 for Windows 7 or Windows Server 2008 R2

解决方法：

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
X = 0
T = True
While T
    Input = InputBox("Filename Lowercase Batch Convertor" & vbCrLf & vbCrLf & _
    "Please input the destination folder name. e.g. C:\Webmaster" & vbCrLf & vbCrLf & _
    "Note: Do NOT add ‘\‘ in the end of folder name!","FLowercase Convertor","C:\")
    If Input = "" Then
        MsgBox"Folder name is empty!",48,"Error!"
        T = True
    Else T = False
    End If
WEnd
MsgBox"All files names of " & Input & " will be converted to lowercase now...",64,"Note"
fold(Input)
MsgBox"Done! Total " & X & " file(s) were converted to lowercase.",64,"Done"
Sub fold(Path)
    Set f = fso.GetFolder(Path)
    Set rf = fso.GetFolder(Path).files
    Set fc = f.SubFolders
    For Each fff In rf
        lcf1 = LCase(fso.GetAbsolutePathName(fff))
        fso.MoveFile fff, lcf1
        X = X + 1
    Next
    For Each f1 In fc
        fold(f1)
        Set file = fso.GetFolder(f1).files
        For Each ff In file
            lcf = LCase(fso.GetAbsolutePathName(ff))
            fso.MoveFile ff,lcf
        Next
    Next
End Sub