' IconeBureau.vbs
' Script permettant de faire réapparaître l'icône "Afficher le Bureau" de Windows XP
' Auteur tanuki-san http://akinet.ca/
' Version 1.0 - Février 2009
' ---------------------------------------------------------------' 

Option Explicit

Dim objFSO, objShell, objFichier
Dim strFichier, strUserProfile

Set objShell = CreateObject("Wscript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject")

strUserProfile = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strFichier = strUserProfile & "\Application Data\Microsoft\Internet Explorer\Quick Launch\Bureau.scf"

If objFSO.FileExists(strFichier) Then
	Wscript.Echo "Le raccourcis 'Afficher le Bureau' existe déjà. Il N'A PAS été recréé."
Else
	Set objFichier = objFSO.CreateTextFile(strFichier)
	objFichier.writeline "[Shell]"
	objFichier.writeline "Command=2"
	objFichier.writeline "IconFile=explorer.exe,3"
	objFichier.writeline "[Taskbar]"
	objFichier.writeline "Command=ToggleDesktop"
	objFichier.Close

	Wscript.Echo "Le raccourcis 'Afficher le Bureau' vient d'être créé."
End If

Wscript.Quit