Créer un raccourci vers le bureau sous Windows 2008
Créer un raccourci dans la barre des tâches pour accéder au bureau
Pour la première partie, il faut créer 2 fichiers.
Si vous voulez automatiser l'étape, lancez ce .vbs en tant qu'administrateur
puis allez directement à la Seconde partie :
Dim objFSO
Dim objTextFile
Dim CheminRepertoire, CheminFichier
Dim CheminScriptActuel
Dim WSHShell, Commande, vAPPDATA, vSystemDrive
'Déclaration des constantes
Const ForReading = 1
Const ForWritting = 2
Const ForAppending = 8
Set WSHShell = CreateObject("WScript.Shell")
vAPPDATA = WSHShell.ExpandEnvironmentStrings("%APPDATA%")
vSystemDrive = WSHShell.ExpandEnvironmentStrings("%SystemDrive%") 'Retourne C: en général (sans le \ à la fin)
CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)
'CheminFichier = CheminScriptActuel & "\ZZMonFichier.txt" 'Déclaration du chemin et du nom du fichier
'CheminFichier = Trim(InputBox("Entrez le chemin complet du fichier","Chemin complet du fichier",CheminFichier)) 'Validation du chemin et du nom du fichier
CheminRepertoire = vAPPDATA & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
CheminFichier = CheminRepertoire & "Show Desktop.scf"
If Len(CheminFichier) > 0 Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForWritting, True)
objTextFile.WriteLine("[Shell]")
objTextFile.WriteLine("Command=2")
objTextFile.WriteLine("IconFile=explorer.exe,3")
objTextFile.WriteLine("[Taskbar]")
objTextFile.WriteLine("Command=ToggleDesktop")
objTextFile.Close 'Fermeture du fichier
Set objTextFile = Nothing
'Lancement d'un explorer vers l'emplacement du .scf
Commande = CheminFichier
WSHShell.Run "Explorer.exe """ & CheminRepertoire & """"
CheminRepertoire = vSystemDrive & "\Users\Public\Desktop"
CheminFichier = CheminRepertoire & "\" & "Desktop.exe"
'Wscript.echo CheminFichier
Set objTextFile = objFSO.OpenTextFile(CheminFichier, ForWritting, True)
objTextFile.WriteLine("")
objTextFile.Close 'Fermeture du fichier
'Lancement d'un explorer vers l'emplacement de Desktop.exe
Commande = CheminFichier
WSHShell.Run "Explorer.exe """ & CheminRepertoire & """"
Set objTextFile = Nothing
Set objFSO = Nothing
Else
Wscript.echo "Operation annulee"
End If 'CheminFichier
Set WSHShell = Nothing
Première partie :
Lancez notepad
Placez y ceci :
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktopEnregistrez le fichier avec une extension en .scf comme Show Desktop.scf
Déplacez le fichier .scf dans
%APPDATA%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar(Le chemin C:\Users\%username%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar fonctionne aussi)
Lancez de nouveau notepad
Enregistrez immédiatement le fichier vide sur votre bureau par exemple et nommez le fichier avec une extention en .exe comme desktop.exe
Seconde partie :
Faites un drag and drop de l'exe dans votre taskbar
Faites un clic droit>propriétés dessus
Dans le champ Target, indiquez le chemin du fichier .scf qui dans notre exemple est
C:\Users\%username%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\Show Desktop.scf
Il est également conseillé de modifier l'icône :
Exemple :
