[.exe disparus] ordinateur paralysé

Salut,
je viens d'aider ma copine au téléphone et ça marche ;)

Prête?

- click droit sur le bureau de Windows
- Nouveau -> Document Texte
- Copier/Coller exactement ce qui suit

' VBScript to restore .exe file association with Windows XP
Option Explicit

Dim strComputer
Dim objRegistry,objDictionary

strComputer = "."
Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

Set objDictionary = CreateObject("Scripting.Dictionary")
objDictionary.Add "HKCR",&h80000000

Call RegAddString( "HKCR", ".exe", "", "exefile")
Call RegAddString( "HKCR", ".exe", "Content Type",_
"application/x-msdownload" )
Call RegAddString( "HKCR", ".exe\PersistentHandler", "",_
"{098f2470-bae0-11cd-b579-08002b30bfeb}" )
Call RegAddString( "HKCR", "exefile", "", "Application" )
Call RegAddBinary( "HKCR", "exefile", "EditFlags", "38,07,00,00" )
Call RegAddString( "HKCR", "exefile", "TileInfo",_
"prop:FileDescription;Company;FileVersion" )
Call RegAddString( "HKCR", "exefile", "InfoTip",_
"prop:FileDescription;Company;FileVersion;Create;Size" )
Call RegAddString( "HKCR", "exefile\DefaultIcon", "", "%1" )
Call RegAddString( "HKCR", "exefile\shell", "", "" )
Call RegAddString( "HKCR", "exefile\shell\open", "", "" )
Call RegAddBinary( "HKCR", "exefile\shell\open",_
"EditFlags", "00,00,00,00" )
Call RegAddString( "HKCR", "exefile\shell\open\command", "",_
Chr(34) & "%1" & Chr(34) & Space(1) & "%*" )
Call RegAddString( "HKCR", "exefile\shell\runas", "", "" )
Call RegAddString( "HKCR", "exefile\shell\runas\command", "",_
Chr(34) & "%1" & Chr(34) & Space(1) & "%*" )
Call RegAddString( "HKCR", "exefile\shellex", "", "" )
Call RegAddString( "HKCR", "exefile\shellex\DropHandler",_
"", "{86C86720-42A0-1069-A2E8-08002B30309D}" )
Call RegAddString( "HKCR", "exefile\shellex\PropertySheetHandlers", "", "" )
Call RegAddString( "HKCR", "exefile\shellex\PropertySheetHandlers\PifProps",_
"", "{86F19A00-42A0-1069-A2E9-08002B30309D}" )
Call RegAddString( "HKCR", "exefile\shellex\PropertySheetHandlers\ShimLayer Property Page",_
"", "{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}" )

Function RegKeyExists(rootkey, keypath)
Dim arrValueNames, arrValueTypes
If objRegistry.EnumValues(objDictionary(rootkey), keypath, arrValueNames, arrValueTypes) = 0 Then
RegKeyExists = True
Else
RegKeyExists = False
End If
End Function

Sub RegAddKey(rootkey, keypath)
objRegistry.CreateKey objDictionary(rootkey),keypath
End Sub

Sub RegAddString(rootkey, keypath, valuename, valuedata)
If Not RegKeyExists(rootkey, keypath) Then
Call RegAddKey( rootkey, keypath )
End If
objRegistry.SetStringValue objDictionary(rootkey),keypath,valuename,valuedata
End Sub

Sub RegAddBinary(rootkey, keypath, valuename, valuearray)
Dim arrValue(),arrHexValue,i,HexVal

arrHexValue = Split(Trim(valuearray),",")
i=0
For Each HexVal in arrHexValue
Redim Preserve arrValue(i)
arrValue(i) = "&h" & HexVal
i=i + 1
Next
objRegistry.SetBinaryValue objDictionary(rootKey),keypath,valuename,arrValue
Redim arrValue(0)
End Sub

- Fichier -> Enregistrer Sous
- Mettre Type de fichiers à "Tous les fichiers"
- Mettre Nom du fichier à "fix.vbs"
- Double clique sur ce fichier fix.vbs

S'il y a des erreurs ce sont des retours de ligne qu'il faut enlever (pas compliqué à faire, clic droit sur le fichier fix.vbs, Modifier, et enlève les retours à la ligne)

A ce stade tu dois pouvoir faire:
- Menu Démarrer
- Exécuter
- regedit

Ca te lance l'éditeur de base de registres

Les fichiers de fix sont ici:
http://www.dougknox.com/xp/file_assoc.htm

Les plus importants sont:
http://www.dougknox.com/xp/fileassoc/xp_regfile.zip
http://www.dougknox.com/xp/fileassoc/xp_exe_fix.zip
http://www.dougknox.com/xp/fileassoc/linkfile_fix.zip
http://www.dougknox.com/xp/fileassoc/xp_com_fix.zip

Dézippe le fichier xp_regfile.zip en premier ;)

Dans l'éditeur de base de registre:
- Fichier
- Importer
- Choisis le fichier qui se nomme "xp_regile.reg"

Le message dira que tu as importé des clés de registre

Normalement tu dois pouvoir exécuter les autres fichiers .reg en double cliquant dessus

Sinon répète la manipulation pour les autres fichiers .reg

Bon courage

salut elfedamour je viens de voir qu il n y a pas longtemps tu as eu ce probleme peux tu me contacter et me donner quelques info merci a+

Bonjour,


j'ai eu exactement le même problème, et ce forum m'a aidé à le résoudre en très peu de temps.
Deplus, je trouve que la procédure à suivre de Lord Taki est très claire --> à suivre.
Merci à tous!!!!

Pour info, j'avais la version 1.05 de ad-Aware SE Plus (freeware), avec inclu AD-Watch SE Plus.
C'est en cochant Automatic dans AD-Watch que tout est arrivé!!