Script pour changer l'arrière-plan du Bureau

La plupart des utilisateurs ne le réalisent pas, mais Microsoft installe une copie de son langage Visual Basic Script sur chaque ordinateur Windows. Ce langage simple mais puissant permet d'automatiser presque toutes les tâches qu'un utilisateur ou un administrateur doit effectuer sur un système, comme changer l'arrière-plan du Bureau.

Éditeur de texte

Créer un script Visual Basic est facile : il vous suffit d'un simple éditeur de texte comme le Bloc-notes Windows. Cependant, au lieu d'enregistrer le fichier avec un nom se terminant par « .TXT », le fichier doit être enregistré avec un nom se terminant par « .VBS ».

Le script

Collez le code suivant dans un éditeur de texte :

dim shell dim user

Set shell = WScript.CreateObject("WScript.Shell") user = shell.ExpandEnvironmentStrings("%USERNAME%")

Set fso = CreateObject("Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder(0) wallpaper = "c:\wallpaper.jpg"

shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper

shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

Modifiez le fichier « c:\wallpaper.jpg » par le chemin et le nom de fichier de l'arrière-plan du Bureau que vous souhaitez utiliser.

Comment exécuter

Pour exécuter le script, enregistrez-le simplement avec l'extension de fichier .VBS. Ensuite, double-cliquez sur son icône sur votre Bureau comme vous le feriez pour démarrer n'importe quel autre programme.