Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

DigRam

[Resolvido] Como corrigir o erro/código 80070002.

Recommended Posts

Saudações!

 

>@< Aos colegas,Analistas de Logs,recomendo estas modificações no Script elaborado por Bill James.

___________________________

 

>@< Caso encontrem dificuldades,de executar o scripts RegSrch.vbs,façam o seguinte:

 

>1< Para fazer o script,abrir no Bloco de Notas( NotePad ),ao final do procedimento.

 

<!> Abra o script,com o Bloco de Notas,e substitua,nas linhas,as referências ao WordPad. << Salve!

 

>2< Para corrigir o erro/código: O sistema não pode encontrar o arquivo especificado/800 7000 2

 

<!> Abra o script,com o Bloco de Notas,e modifique o valor 0 ( zero ),na linha 76,para o valor 1.

<!> Vá em Arquivo e salve as modificações,escolhendo como Tipo de arquivo: Todos os arquivos

<!> Ps: Na contagem das linhas,inclua os intervalos entre as mesmas.

____________________________

 

>@< Logo abaixo,temos o script modificado e pronto para uso.

>@< No relatório final da ferramenta,não esqueçam de copiá-lo para o Bloco de Notas,e postar para análise.

>@< Isto é necessário,pois existe uma instrução,que ainda não modifiquei,no script,que deleta o relatório após o seu fechamento.

 

'RegSrch.vbs - Search Registry for input string and display results.'© Bill James - wgjames@mvps.org' revised 20 Apr 2001 (parses regfile ~3X faster)' revised 13 Dec 2001 (added Regedit command line switch for Win2K/WindXP)Option ExplicitDim oWS : Set oWS = CreateObject("WScript.Shell")Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject")Dim sSearchForsSearchFor = InputBox("This script will search your Registry and find all " & _			 "instances of the search string you input."  & vbcrlf & vbcrlf & _			 "This search could take several minutes, so please be patient." & _			 vbcrlf & vbcrlf & "Enter search string (case insensitive) and " & _			 "click OK...", WScript.ScriptName & " " & Chr(169) & " Bill James")If sSearchFor = "" Then Cleanup()Dim StartTime : StartTime = TimerDim sRegTmp, sOutTmp, eRegLine, iCnt, sRegKey, aRegFileLinessRegTmp = oWS.Environment("Process")("Temp") & "\RegTmp.tmp "sOutTmp = oWS.Environment("Process")("Temp") & "\sOutTmp" & _		  Hour(Now) & Minute(Now) & Second(Now) & ".tmp "oWS.Run "regedit /e /a " & sRegTmp, , True '/a enables export as Ansi for WinXPWith oFSO.OpenTextFile(sOutTmp, 8, True)  .WriteLine("REGEDIT4" & vbcrlf & "; " & WScript.ScriptName & " " & _	Chr(169) & " Bill James" & vbcrlf & vbcrlf & "; Registry search " & _	"results for string " & Chr(34) & sSearchFor & Chr(34) & " " & Now & _	vbcrlf & vbcrlf & "; NOTE: This file will be deleted when you close " & _	"NotePad." & vbcrlf & "; You must manually save this file to a new " & _	"location if you want to refer to it again later." & vbcrlf & "; (If " & _	"you save the file with a .reg extension, you can use it to restore " & _	"any Registry changes you make to these values.)" & vbcrlf)  With oFSO.GetFile(sRegTmp)	aRegFileLines = Split(.OpenAsTextStream(1, 0).Read(.Size), vbcrlf)  End With  oFSO.DeleteFile(sRegTmp)  For Each eRegLine in aRegFileLines	If InStr(1, eRegLine, "[", 1) > 0 Then sRegKey = eRegLine	If InStr(1, eRegLine, sSearchFor, 1) >  0 Then	  If sRegKey <> eRegLine Then		.WriteLine(vbcrlf & sRegKey) & vbcrlf & eRegLine	  Else		.WriteLine(vbcrlf & sRegKey)	  End If	  iCnt = iCnt + 1	End If  Next  Erase aRegFileLines  If iCnt < 1 Then	oWS.Popup "Search completed in " & FormatNumber(Timer - StartTime, 0) & " seconds." & _			  vbcrlf & vbcrlf & "No instances of " & chr(34) & sSearchFor & chr(34) & _			  " found.",, WScript.ScriptName & " " & Chr(169) & " Bill James", 4096	.Close	oFSO.DeleteFile(sOutTmp)	Cleanup()  End If  .CloseEnd WithoWS.Popup "Search completed in " & FormatNumber(Timer - StartTime, 1) & " seconds." & _		  vbcrlf & vbcrlf & iCnt & " instances of " & chr(34) & sSearchFor & chr(34) & _		  " found." & vbcrlf & vbcrlf & "Click OK to open Results in NotePad.",, _		  WScript.ScriptName & " " & Chr(169) & " Bill James", 4096oWS.Run "NotePad " & sOutTmp, 3, TrueoFSO.DeleteFile(sOutTmp)Cleanup()Sub Cleanup()  Set oWS = Nothing  Set oFSO = Nothing  WScript.QuitEnd Sub

 

Abraços!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.