' ----------------------------------------------------------
' Script VBS ajoutant la commande 
'       "Ouvrir le cadre 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 "<SCRIPT language=""javascript"" defer>"
f.writeline "open(external.menuArguments.location.href);"
f.writeline "</SCRIPT>"
f.close
key="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Ouvrir le cadre dans une nouvelle fenêtre\"
shell.RegWrite Key,"file://" & nomfic
shell.RegWrite Key & "Context", 1 ,"REG_DWORD"
wscript.echo "Commande ajoutée dans le menu contextuel de IE6"
wscript.echo "Vous devez au préalable fermer toutes les fenêtres de IE6"
wscript.echo "pour que la modification soit prise en compte"
Wscript.quit