Bonjour AMHI poitevine,
J'ai repensé à ce que je t'ai dit et,
pour te simplifier la vie, je vais te donner un "outil" pour supprimer facilement toutes ces $NTuninstallKB***.
Je te donne ici un script. Sélectionne-le
AU COMPLET.
Ensuite, ouvre le Bloc-Note de ton ordi et colle le script.
Sauvegarde sur ton bureau le fichier bloc-note sous le nom:
supp.vbs (dans le tableau de la sauvegarde, assures-toi de mettre:
tous les fichiers et non pas "fichier TXT seulement".
Ensuite, désactive ton antivirus et ton pare-feu.
Ensuite, va sur le bureau et clic sur le fichier supp.vbs
Sois patient. (2-5 minutes), il retracera tous les fichiers en question et te montrera le résultat de la recherche dans un tableau simple. Mets un crochet en haut (pour dire que tu veux tout supprimer) et clic en bas sur Supprimer.
Ce petit script supprimera correctement tous les fichiers en question.
Ensuite, réactive ton antivirus et ton pare-feu.
Bonne journée et donne des nouvealles.
Richard1
Voici le script en question. Il faut TOUT LE SÉLECTIONNER. (COPIE EN INCLUANT LA BARRE DE POINTILLÉS CI-DESSOUS) et INCLUS AUSSI LA BARRE DE POINTILLÉS À LA FIN :
' ----------------------------------------------------------
' Script de suppression des dossiers de désinstallation de
' hotfixes sous Windows 2000, XP, 2003 ...
'
' Syntaxe: delUninstall
'
'
' JC BELLAMY © 2003-2005
' Mises à jour :
' 16/08/2005 : ajout de la suppression des fichiers log
' 11/03/2008 : ajout d'affichage de la date des dossiers
' ----------------------------------------------------------
On error resume next
Const SW_HIDE=0
Const SW_SHOWNORMAL=1
ColorBack="""#FFFFD8"""
BGProgressON="blue"
BGProgressOFF=ColorBack
Const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7
Dim shell,fso,oIE,NbHF,HFFolders(),HFKeys(),HFarticle()
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
shell.Popup "Veuillez patienter quelques instants ...",3,"Recherche des dossiers de correctif et service pack",64
' Autoriser le contenu actif à s'exécuter dans les fichiers de la zone Ordinateur local
LockDown="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\"
Keysec1=LockDown & "iexplore.exe"
Oldvalue1=shell.RegRead(Keysec1)
If Err.Number<>0 Then
Err.Clear
Oldvalue1=1
End If
shell.RegWrite Keysec1,0,"REG_DWORD"
Keysec2=LockDown & "Settings\LOCALMACHINE_CD_UNLOCK"
Oldvalue2=shell.RegRead(Keysec2)
If Err.Number<>0 Then
Err.Clear
Oldvalue2=0
End If
shell.RegWrite Keysec2,1,"REG_DWORD"
ficInit = GetPath() & "deluninstall.html"
Titre="Suppression des dossiers de désinstallation de hotfixes"
Set ts = fso.CreateTextFile(ficInit, True)
ts.writeline header
ts.writeline ScriptBtn
Windir=shell.ExpandEnvironmentStrings("%systemroot%")
Key="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
LastKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"
ts.writeline "Dossier système :
" & Windir & ""
ts.writeline "
"
ts.writeline ProgressBar
ts.writeline "
JCB © 2008"
ts.writeline "