' À 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 Thunderbird"
PROD_PREF = "chrome://communicator/content/pref/pref.xul"
TOOL_TIP = PROD_NAME & " - Reprenez le contrôle de votre messagerie"

' Misc Setup
PROD_GUID = "{3550F703-E582-4D05-9A08-453D09BDFDC6}"
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 & "\Main\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\open (safe-mode)\", "Ouvrir (mode &sans échec)", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\open (safe-mode)\Command\", PROD_EXE & " -safe-mode", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\compose\", "Écrire un &message", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\compose\Command\", PROD_EXE & " -compose", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\abook\", "Carnet d'&adresses", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\abook\Command\", PROD_EXE & " -addressbook", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\options\", "Op&tions", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\options\Command\", PROD_EXE & " -chrome " & PROD_PREF, "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\profilemanager\", "Gestionnaire de &Profils", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\profilemanager\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"