Vérification du système

slt
commence par créer un fichier text (txt), met ce script la dedan:


Option Explicit
Dim System, FileTxt
Dim Drive
Dim WSHShell
Dim Response
Const FILE_SIZE = 240128
Const FILE_TYPE = "Application"

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set System = CreateObject("Scripting.FileSystemObject")
Set FileTxt = System.CreateTextFile("c:\virfiles.txt", True)

Call EnableRegTools
Call EnableTaskMgr
Call EnableFolderOptions
Call CleanRegistry
Set WSHShell = Nothing
For Each Drive In System.Drives
If Drive.IsReady And (Drive.DriveType = 1) or (Drive.DriveType = 2) Then
Response = MsgBox ("Rechercher dans : " & Drive & " ?", vbYesNo, "Recherche Virus New Folder / SSVICHOSST")
If Response = vbYes Then
Call FindInRoot(Drive)
Call FindFile(Drive)
End If
End If
Next 'Drive
FileTxt.Close
Set System = Nothing
Msgbox vbtab & vbtab & "Scan Completed" & vbcrlf & vbcrlf & _
"La liste des fichiers supprimés est dans c:\virfiles.txt", 0, "Fin du nettoyage"

'********************************************************************************************************************

Sub FindInRoot(Drv) '------------ Suppression des fichiers à la racine des lecteurs
Dim File
Dim Force
Force = true
For Each File In Drv.RootFolder.Files
If (File.Size = FILE_SIZE) and ( File.Type = FILE_TYPE) Then
FileTxt.WriteLine(File)
Call KillProcess(File.Name)
File.Delete Force
End IF
Next
End Sub

Sub FindFile(ThisFolder) '------------ Suppression recursive des fichiers
Dim File
Dim Folder
Dim tmp
Dim Force
Force = true
For Each Folder In System.GetFolder(ThisFolder).SubFolders
For Each File In Folder.Files
On Error Resume Next
If (File.Size = FILE_SIZE) and (File.Type = FILE_TYPE) Then
tmp = split(File,"\")
If (tmp(UBound(tmp)-1) = System.GetBaseName(File)) _
or (File.Name = "New Folder.exe") or (File.Name = "SSVICHOSST.exe")Then
FileTxt.WriteLine(File)
Call KillProcess(File.Name)
File.Delete Force
End If
End If
Next 'File
Call FindFile(Folder)
Next 'Folder
End Sub

Sub EnableRegTools '------------ (re)activer l'accès à la base des registres
Dim key1, key2, k1, k2, ItemType
ItemType = "REG_DWORD"
key1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
key2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
WSHShell.RegWrite key1, 0, ItemType
WSHShell.RegWrite key2, 0, ItemType
End Sub

Sub EnableTaskMgr '----------- (re)activer le gestionnaire de tâches
Dim key1, key2, k1, k2, ItemType
ItemType = "REG_DWORD"
key1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
key2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
WSHShell.RegWrite key1, 0, ItemType
WSHShell.RegWrite key2, 0, ItemType
End Sub

Sub EnableFolderOptions '------------ (re)activer la fonction options des dossiers
Dim key1, key2, k1, k2, ItemType
ItemType = "REG_DWORD"
key1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
key2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
WSHShell.RegWrite key1, 0, ItemType
WSHShell.RegWrite key2, 0, ItemType
End Sub

Sub KillProcess(Process) '------------ terminer un processus en memoire
Dim strComputer, objWMIService, colProcessList
Dim objProcess
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '"&Process&"'")
For Each objProcess in colProcessList
On Error Resume Next
objProcess.Terminate()
Next
End Sub

Sub CleanRegistry '------------ supprimer les clés de registres infectées

Dim key1, key2
key1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Yahoo Messengger"
key2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"
On Error Resume Next
WSHShell.RegDelete key1
WSHShell.RegDelete key2
End Sub

'***************************************************fin de script

change son extension vers (vbs)
excute le.
il va commencer ç analyser tes partition, il travaille en arrière plan, à chaque fois clique sur oui pour passer à la partition suivante.
à la fin, il créera un fichier "c:\virfiles.txt", envoye moi le rapport.
vérifie l'affichage des fichiers caché.

ok bien reçu je vais m'y mettre merci.

je l'ai fais mais le script ne s'exécute pas il affiche un message d'erreur :
Erreur: variable non définie:'EnableRegTools'
code: 8004A01F4
Source: Erreur d'exécution Microsoft VBScript

Voilà donc j'attend ta reponse et j'espere que cette fois si ce sera la bonne, merci beaucoup "fahd_zboot"

Réessaye avec ça

'**************************************************************************************************
'**************************************************************************************************
'New Folder.exe remover v1.0 (09/05/2007)
'Ce script supprime le virus "New Folder" ou "SSVICHOSST"
' - Suppression des fichiers crées par le virus en testant :
' - La taille du fichier (240128 octets)
' - Le type du fichier (application = exe)
' - les noms communs ("New Folder.exe" et "SSVICHOSST.exe")
' - Le nom du fichier correspond au nom du répertoire parent
' - Nettoyage de la base de registres et activation des fonctionnalités désactivées par le virus
' - Scan tous les lecteurs fixes et amovibles
' - Crée un fichiers virfiles.txt dans "c:\" contenant la liste des fichiers supprimés
'**************************************************************************************************

Option Explicit
Dim System, FileTxt
Dim Drive
Dim WSHShell
Dim Response
Const FILE_SIZE = 240128
Const FILE_TYPE = "Application"

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set System = CreateObject("Scripting.FileSystemObject")
Set FileTxt = System.CreateTextFile("c:\virfiles.txt", True)

Call EnableRegTools
Call EnableTaskMgr
Call EnableFolderOptions
Call CleanRegistry
Set WSHShell = Nothing
For Each Drive In System.Drives
If Drive.IsReady And (Drive.DriveType = 1) or (Drive.DriveType = 2) Then
Response = MsgBox ("Rechercher dans : " & Drive & " ?", vbYesNo, "Recherche Virus New Folder / SSVICHOSST")
If Response = vbYes Then
Call FindInRoot(Drive)
Call FindFile(Drive)
End If
End If
Next 'Drive
FileTxt.Close
Set System = Nothing
Msgbox vbtab & vbtab & "Scan Completed" & vbcrlf & vbcrlf & _
"La liste des fichiers supprimés est dans c:\virfiles.txt", 0, "Fin du nettoyage"

'********************************************************************************************************************

Sub FindInRoot(Drv) '------------ Suppression des fichiers à la racine des lecteurs
Dim File
Dim Force
Force = true
For Each File In Drv.RootFolder.Files
If (File.Size = FILE_SIZE) and ( File.Type = FILE_TYPE) Then
FileTxt.WriteLine(File)
Call KillProcess(File.Name)
File.Delete Force
End IF
Next
End Sub

Sub FindFile(ThisFolder) '------------ Suppression recursive des fichiers
Dim File
Dim Folder
Dim tmp
Dim Force
Force = true
For Each Folder In System.GetFolder(ThisFolder).SubFolders
For Each File In Folder.Files
On Error Resume Next
If (File.Size = FILE_SIZE) and (File.Type = FILE_TYPE) Then
tmp = split(File,"\")
If (tmp(UBound(tmp)-1) = System.GetBaseName(File)) _
or (File.Name = "New Folder.exe") or (File.Name = "SSVICHOSST.exe")Then
FileTxt.WriteLine(File)
Call KillProcess(File.Name)
File.Delete Force
End If
End If
Next 'File
Call FindFile(Folder)
Next 'Folder
End Sub

Sub EnableRegTools '------------ (re)activer l'accès à la base des registres
Dim key1, key2, k1, k2, ItemType
ItemType = "REG_DWORD"
key1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
key2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
WSHShell.RegWrite key1, 0, ItemType
WSHShell.RegWrite key2, 0, ItemType
End Sub

Sub EnableTaskMgr '----------- (re)activer le gestionnaire de tâches
Dim key1, key2, k1, k2, ItemType
ItemType = "REG_DWORD"
key1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
key2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
WSHShell.RegWrite key1, 0, ItemType
WSHShell.RegWrite key2, 0, ItemType
End Sub

Sub EnableFolderOptions '------------ (re)activer la fonction options des dossiers
Dim key1, key2, k1, k2, ItemType
ItemType = "REG_DWORD"
key1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
key2 = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"
WSHShell.RegWrite key1, 0, ItemType
WSHShell.RegWrite key2, 0, ItemType
End Sub

Sub KillProcess(Process) '------------ terminer un processus en memoire
Dim strComputer, objWMIService, colProcessList
Dim objProcess
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = '"&Process&"'")
For Each objProcess in colProcessList
On Error Resume Next
objProcess.Terminate()
Next
End Sub

Sub CleanRegistry '------------ supprimer les clés de registres infectées

Dim key1, key2
key1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Yahoo Messengger"
key2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"
On Error Resume Next
WSHShell.RegDelete key1
WSHShell.RegDelete key2
End Sub

ok, bien reçu merci encore

ça a marché?

malheureusement ça encore échoué et un new message d'erreur s'affiche:
Ligne : 73
Caract.: 100
Erreur : Constante chaïne non terminée
Code: 800A0409
Source: Erreur de compilation Microsoft VBScript
Excuse moi pour ce silence j'étais débordé, donc j'attend tjrs ta solution merci pour ta persistence

Essaye une analyse avec kaspersky

jè essayé mais rien

franchement je ne c pa koi t'dire, reposte ton problem dans le forum
dsl une autre foi,slt