"//./root/CIMV2"because of error 0x80041003. Events cannot be delivered through this filter until t...
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다음으로 전송:https://www.cnblogs.com/passedbylove/p/9131634.html
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
