3
질문하기 전에 검색을 수행하고 코드에 적용되는 내용을 찾지 못했습니다. 또한 내가 시도한 것은 코드에 주석 처리되어있다. 오류 800706BE (원격 프로 시저 호출이 실패한)은 For..Next 루프에 나타나며 매번 다양한 임의의 반복 횟수로주기를 중단합니다. 내가 그리워하고 (간단한) 코드를 수정하는 방법은 무엇입니까?WMI Win32_Directory가 For 루프에서 오류 800706BE와 함께 실패했습니다. 원격 프로 시저 호출이 실패했습니다.
'List All the Folders on a Computer
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'With objWMIService.Security_
' .impersonationlevel = 3
' For I = 1 To 27
' .Privileges.Add(I)
' Next
'End With '--------------------------not help at all!
Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory")
cnt = 0
'Do Until IsObject(colFolders) '-----not help at all!
' WScript.Sleep 500
'Loop
On Error Resume Next 'enabled to get extra info from SWbemLastError
For Each objFolder In colFolders
Wscript.Echo objFolder.Name
cnt = cnt + 1
' WScript.Sleep 10 '--------------that make it worst!
Next '---------------the error appear always at this line----------
If Err Then
Wscript.Echo Err.Number, Err.Description, Err.Source
Set lastErr = CreateObject("WbemScripting.SWbemLastError")
Wscript.Echo lastErr.Operation
End If
Wscript.Echo "LastIter.: " & cnt
'-2147023170
'ExecQuery
'LastIter.: 2152 or 1592 or 1314 or 959 ... varied random
WBEMTEST :
P.S.System Restore으로 몇 가지 테스트를 수행하여 하나의 가설을 테스트하고 며칠 전 마지막 Windows 보안 업데이트 전에 복원했는지, 그리고 추측 할 수 있습니까? 이제 다른 오류가 발생합니다 : "종료 중". Undo Last Restore 이후에도 여전히 혼란 스럽습니다. 새 오류 (종료)가 발생했습니다. 이것은 감각이 없습니다.
이벤트 로그에있는 내용은 무엇입니까? ['WBEMtest'] (http://technet.microsoft.com/en-us/library/cc180684.aspx) 및/또는 ['WMIDiag'] (http://blogs.technet.com/b /askperf/archive/2012/02/03/wmidiag-2-1-is-here.aspx)? –
답장을 보내 주셔서 감사 드리며, WBEMTest로 테스트했으며 스크린 샷을 게시 할 것입니다. –
[여기]에 설명 된대로 WMI를 복구 해 보셨습니까? (http://social.technet.microsoft.com/Forums/en-US/winservergen/thread/8ed26d46) -9994-4052-a307-5b071805aea8)? –