' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'  Script VBS pour nettoyer les dégâts de SWEN et de TORVIL dans le registre
' Réactive les outils de registre, le gestionnaire de tâches et
' le bouton d'arrêt de XP
'
' script de ~Jean-Marc~ © 2003 http://perso.wanadoo.fr/doc.jm
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim shell, fso
Set shell = WScript.CreateObject("WScript.Shell" )
Set fso   = WScript.CreateObject("Scripting.FileSystemObject" )
 
'fichiers exécutables
key="HKEY_CLASSES_ROOT\exefile\shell\open\command\"
shell.RegWrite key,"""%1"" %*"
key="HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command"
shell.RegWrite key,"""%1"" %*"
key="HKEY_CLASSES_ROOT\.exe"
shell.RegWrite key,"exefile"
 
'fichiers de registre
key="HKEY_CLASSES_ROOT\regfile\shell\open\command\"
shell.RegWrite key,"regedit.exe ""%1"""
 
'Economiseurs d ecran
key="HKEY_CLASSES_ROOT\scrfile\shell\open\command\"
shell.RegWrite key,"""%1"" /S"
 
key="HKEY_CLASSES_ROOT\scrfile\shell\config\command\"
shell.RegWrite key,"""%1"""
 
'raccourcis PIF
key="HKEY_CLASSES_ROOT\piffile\shell\open\command\"
shell.RegWrite key,"""%1"" %*"
 
'raccourcis CMD
key="HKEY_CLASSES_ROOT\cmdfile\shell\open\command\"
shell.RegWrite key,"""%1"" %*"
 
'raccourcis COM
key="HKEY_CLASSES_ROOT\comfile\shell\open\command\"
shell.RegWrite key,"""%1"" %*"
 
'fichier BAT
key="HKEY_CLASSES_ROOT\batfile\shell\open\command\"
shell.RegWrite key,"""%1"" %*"
 
'Réactivation des outils de registre
key="HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
shell.RegWrite key & "DisableRegistryTools", 0 ,"REG_DWORD"
key="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
shell.RegWrite key & "DisableRegistryTools", 0 ,"REG_DWORD"
key="HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
shell.RegWrite key & "DisableRegistryTools", 0 ,"REG_DWORD"
 
'Réactivation du bouton d arrêt
key="HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
shell.RegWrite key & "NoClose", 0 ,"REG_DWORD"
key="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
shell.RegWrite key & "NoClose", 0 ,"REG_DWORD"
key="HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
shell.RegWrite key & "NoClose", 0 ,"REG_DWORD"
 
'Réactivation du gestionnaire de tâches
key="HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
shell.RegWrite key & "DisableTaskMgr", 0 ,"REG_DWORD"
key="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
shell.RegWrite key & "DisableTaskMgr", 0 ,"REG_DWORD"
key="HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
shell.RegWrite key & "DisableTaskMgr", 0 ,"REG_DWORD"
 
 
'fin
wscript.echo "Nettoyage des associations exe, scr, reg, pif, bat terminé." & vbcrlf & _  
 "Réactivation des outils de registre, du gestionnaire de tâches et du bouton d arrêt effectué"
Wscript.quit
 

Première chose à faire, active le Firewall de XP ou un autre et reconnecte toi... après tu va sur
 
http://housecall.trendmicro.com/ho [...] t_corp.asp, tu scanne ta machine