' ----------------------------------------------------------
' Script d'affichage des cookies sous IE
'
' JC BELLAMY © 2002
' ----------------------------------------------------------
Dim shell, fso
Set shell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
DestHTML=shell.ExpandEnvironmentStrings("%windir%") & "\web\cookie.html"
CreateHTML DestHTML
key="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\Voir les cookies\"
shell.RegWrite key, DestHTML ,"REG_SZ"
prompt="L'affichage des cookies est installé" & VBCRLF
prompt=prompt & "(Il faut redémarrer Internet Explorer)"
MsgBox prompt,vbInformation ,"ViewCookies pour Internet Explorer (JCB © 2002)"
Wscript.quit
'--------------------------------------------------------------------
Sub CreateHTML(filename)
dim ts
set ts=fso.CreateTextFile(filename,true)
ts.writeline ""
ts.WriteLine ""
ts.WriteLine "Ce document ne doit pas être ouvert directement!
"
ts.WriteLine "Utiliser le menu contextuel ""Enregistrer la cible sous..."""
ts.WriteLine ""
ts.WriteLine ""
ts.WriteLine ""
ts.close
End Sub
'--------------------------------------------------------------------