Script VBS para cambiar el fondo de escritorio en Windows

Pocos usuarios saben que Microsoft incluye una copia de Visual Basic Script (VBS) en cada Windows. Este lenguaje sencillo pero potente permite automatizar casi cualquier tarea, como cambiar el fondo de escritorio.

Editor de texto

Crear un script VBS es fácil: basta el Bloc de notas. Guarda el archivo con extensión .VBS en lugar de .TXT.

El script

Copia lo siguiente en el editor:

dim shell, 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

Cambia c:\wallpaper.jpg por la ruta y nombre de la imagen que quieras usar como fondo.

Cómo ejecutarlo

Guarda el archivo con extensión .VBS. Haz doble clic en su icono en el Escritorio para ejecutarlo como cualquier programa.