Script pour modifier l'arrière-plan du bureau

La plupart des utilisateurs ne s'en rendent pas compte, mais Microsoft installe une copie de leur 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 devra effectuer sur un système, comme changer l'arrière-plan du bureau.

Éditeur de texte

La création d'un script Visual Basic est simple :tout ce dont vous avez besoin est un simple éditeur de texte tel que le Bloc-notes Windows. Cependant, au lieu d'enregistrer le fichier avec un nom qui se termine par ".TXT", le fichier doit être enregistré avec un nom se terminant par ".VBS."

Le Scénario

Collez ce qui suit dans un éditeur de texte :

dim shell dim utilisateur

Définir 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", fond d'écran

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

Remplacez 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 avec votre souris comme vous le feriez pour démarrer n'importe quel autre programme.