Windows: Como desativar o atributo oculto para todos os arquivos e diretórios em uma unidade?

1

Meu Windows 7 foi recentemente infectado pelo vírus system-fix.com e escondeu todos os meus arquivos e diretórios. Acredito que removi o vírus, mas ainda não consigo encontrar muitos arquivos e programas.

Existe uma única ferramenta de linha de comando no Windows que pode desativar recursivamente o atributo oculto para uma unidade inteira?

    
por Pete Alvin 10.12.2011 / 04:04

4 respostas

1

Mostrar foi criado especificamente para lidar com esse sintoma.

When run, it will unhide (-H) all +H files on the fixed disks of your computer. It will not, though, unhide any files that also have the +S attribute.

Consulte o Guia de remoção para correção do sistema para obter mais informações.

    
por 10.12.2011 / 12:32
4

Acho que attrib -H /S /D deve fazer o truque.

    
por 10.12.2011 / 04:14
1

Você também pode tentar este script simples do Windows para exibir arquivos e diretórios. Apenas solicita ao usuário que insira a letra da unidade e executa o vbscript.

Execute o seu bloco de notas, copie o código abaixo e salve-o como unhide.vbs

pc_drive = InputBox("Input drive letter" & vbnewline & "example: E:\", "Drive","E:\")
ryt = Right(pc_drive,2)
   If Len(pc_drive) <> 3 or ryt <> ":\" Then
   Call MsgBox("Either your input was invalid or the drive you specified doesn'texist",vbokonly,"Error")
End If

Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(pc_drive)

Sub ShowSubFolders(Folder)
   str =""
   For Each Subfolder in Folder.SubFolders
      str =str & " " & Subfolder.Path
      subFolder.Attributes = 0
      ShowSubFolders Subfolder
   Next
End Sub

Você pode salvá-lo em sua unidade USB para obter mais acessibilidade. Instrução de como usá-lo pode ser encontrada no link abaixo.

Script do Windows para exibir pastas ocultas por Worm Virus

EDITAR: forneceu o código vbscript.

    
por 22.07.2012 / 16:39
0

Eu tive o mesmo problema e encontrei uma solução no Stackoverflow (você pode dar uma olhada em link ).

Este código tornará visíveis apenas os diretórios.

Portanto, crie um arquivo BAT (abra o Bloco de Notas, copie + cole o código abaixo e renomeie o arquivo para fix.bat ), que conterá:

echo "Enter Drive letter" 
set /p driveletter=

attrib -s -h -a /s /d  %driveletter%:\*.*

Além disso, eu modifiquei um pouco o código fornecido pelo Sr. Xymon para evitar tornar o Reciclado Bin visível e evitar o Erro de Permissão do Windows.

Aqui está o código:

Sub ShowSubFolders(CurrentFolder) 
  ' Skip some folders to avoid Windows Error Message
  If (CurrentFolder.Name <> "RECYCLER") and (CurrentFolder.Name <> "System Volume Information") and (CurrentFolder.Name <> "$RECYCLER.BIN") and (CurrentFolder.Name <> "Config.Msi") Then
    For Each Subfolder in CurrentFolder.Subfolders
      If (Subfolder.Name <> "RECYCLER") and (Subfolder.Name <> "System Volume Information") and (Subfolder.Name <> "$RECYCLER.BIN") and (Subfolder.Name <> "Config.Msi") Then
        Subfolder.Attributes = Subfolder.Attributes AND 0
      End If
      ShowSubFolders(Subfolder)
    Next
  End If
End Sub

' Main program
pc_drive = InputBox("Input drive letter." & vbnewline & vbnewline & "Example: G:\", "Drive","G:\")
ryt = Right(pc_drive,2)
If Len(pc_drive) = 3 or ryt = ":\" Then

  Set FSO = CreateObject("Scripting.FileSystemObject")

  ' Check if the path exists or if the drive is ready
  If FSO.FolderExists(pc_drive) Then
    Call MsgBox("Our script will start after you click OK. Please wait the Finish Message!!!",vbokonly,"Starting...")
    ' TO DO: Add a progress bar here
    ShowSubfolders(FSO.GetFolder(pc_drive))
    Call MsgBox("Done!",vbokonly,"Finished")
  Else
    Call MsgBox("Either your input was invalid or the drive you specified doesn't exist.",vbokonly,"Error")
  End If

End If

Felicidades!

    
por 09.01.2013 / 09:08