' ---------------------------------------------------------- ' Script VBS ajoutant la commande ' "Ouvrir dans une nouvelle fenêtre" ' dans le menu contextuel de Internet Explorer 6 ' ' Ce script crée un document HTML et ajoute une clef dans la BDR ' Fonctionnement automatique ' ' JC BELLAMY © 2001 ' ---------------------------------------------------------- ForWriting=2 Dim shell, fso Set shell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") windir=shell.ExpandEnvironmentStrings("%windir%") nomfic=windir&"\web\reopen.htm" set f=fso.OpenTextFile(nomfic, ForWriting , true) f.writeline "" f.close key="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Ouvrir dans une nouvelle fenêtre\" shell.RegWrite Key,"file://" & nomfic shell.RegWrite Key & "Context", 1 ,"REG_DWORD" mess="Commande ajoutée dans le menu contextuel de IE6" & VBCRLF mess=mess & "Vous devez au préalable fermer toutes les fenêtres de IE6" & VBCRLF mess=mess & "pour que la modification soit prise en compte" & VBCRLF MsgBox mess, vbOKOnly + vbInformation, "Reopen.vbs" Wscript.quit