' À partir de http://gemal.dk/blog/2004/11/05/firefox_thunderbird_and_sunbird_desktop_shortcuts/
' et http://tw.apinc.org/weblog/2005/01/04/tb-vs-oe#integration-bureau

Set WShell = WScript.CreateObject("WScript.Shell")

' Product Setup
PROD_NAME = "Mozilla"
PROD_PREF = "chrome://communicator/content/pref/pref.xul"
TOOL_TIP = PROD_NAME & " - Suite Internet sur mesure"

' Misc Setup
PROD_GUID = "{86C18B42-E466-45A9-AE7A-9B95BA6F5640}"
PROD_CLSID = "HKCR\CLSID\" & PROD_GUID & "\"

' Get Current Path
PROD_VER = WShell.RegRead("HKLM\SOFTWARE\Mozilla\" & PROD_NAME & "\CurrentVersion")
PROD_EXE = Chr(34) & WShell.RegRead("HKLM\SOFTWARE\Mozilla\" & PROD_NAME & " " & PROD_VER & "\bin\PathToExe") & Chr(34)

' Setup NameSpace Icon
WShell.RegWrite PROD_CLSID, PROD_NAME, "REG_SZ"
WShell.RegWrite PROD_CLSID & "InfoTip", TOOL_TIP, "REG_EXPAND_SZ"
WShell.RegWrite PROD_CLSID & "ShellFolder\HideOnDesktopPerUser", "", "REG_SZ"
WShell.RegWrite PROD_CLSID & "DefaultIcon\", PROD_EXE & ",0", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\", "Open", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\Open", "&Ouvrir", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\Open\command\", PROD_EXE, "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\abrowser\", "&Navigateur", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\abrowser\Command\", PROD_EXE & " -browser", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\bcourrier\", "&Courrier", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\bcourrier\Command\", PROD_EXE & " -mail", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\ccompose\", "Écrire un &message", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\ccompose\Command\", PROD_EXE & " -compose", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\dcomposeur\", "C&omposeur", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\dcomposeur\Command\", PROD_EXE & " -edit", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\eabook\", "Carnet d'&adresses", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\eabook\Command\", PROD_EXE & " -addressbook", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\firc\", "Discussion sur &IRC", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\firc\Command\", PROD_EXE & " -chat", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\goptions\", "Op&tions", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\goptions\Command\", PROD_EXE & " -chrome " & PROD_PREF, "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\hprofilemanager\", "Gestionnaire de &Profils", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\hprofilemanager\Command\", PROD_EXE & " -ProfileManager", "REG_SZ"
WShell.RegWrite PROD_CLSID & "ShellFolder\Attributes", &H01000030, "REG_BINARY"

' Show Icons
WShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\" & PROD_GUID, "0", "REG_DWORD"
WShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\" & PROD_GUID, 0, "REG_DWORD"

' Create NameSpace Icon
WShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & PROD_GUID & "\", PROD_NAME, "REG_SZ"