' ---------------------------------------------------------- ' 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 "