"//./root/CIMV2" because of error 0x80041003. Events cannot be delivered through this filter until the problem is corrected.

时间：2024-12-15 13:05:21

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 =

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!",,"Error!"

        T = True

    Else T = False

    End If

WEnd

MsgBox"All files names of " & Input & " will be converted to lowercase now...",,"Note"

fold(Input)

MsgBox"Done! Total " & X & " file(s) were converted to lowercase.",,"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 +

    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

相关文章