Code :
- ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- ' 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
|