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.
参考来源：
解决方法：
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