Tapez dans un document bloc-note (dans le répertoire de votre choix et du nom de votre choix mais il doit porter l'extention.vbs) :
Set wshshell = CreateObject("Shell.application")
wshshell.[....]
Remplacez les points par:
- Ouvrir un dossier: Open"C:\...."
- Afficher la fenêtre de propriétée de la barre des tâches: TrayProperties
- Assistant de recherche: FindFiles
- Recherche d'ordinateur/personnes : FindComputer
- Ouvrir la boîte de dialoge executer : Fileun
- Réduire toutes les fenêtres : MinimizeAll
- Restaurer toutes les fenêtres :UndoMinimizeAll
- Mettre les fenêtres en cascade : CascadeWindows
- Ouvrir la boîte de dialoge d'éxtinction: ShutdownWindows
- Ejecter sa clé USB : EjectPC
- Rafraîchir la fenêtre active: RefreshMenu
- Disposer les fenêtres en mosaïque horizontale : TileHorizontally
- Disposer les fenêtres en mosaïque verticale :TileVertically
Trouvez lui une icône puis, faites le glisser dans votre barre des tâches.