Script para cambiar el fondo del escritorio

Script para cambiar el fondo del escritorio.
Por kevin walker

Editor de texto

Crear un Visual Basic Script es fácil: todo lo que necesitas es un editor de texto simple, como el Bloc de Notas de Windows. No obstante, en lugar de guardar el archivo con un nombre que termina en ".TXT", el archivo debe guardarse con un nombre que termine en ".VBS".


El script

Pega lo siguiente en un editor de texto:

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

Cambia el archivo "c:\wallpaper.jpg" con la ruta y nombre de archivo del fondo de escritorio que te gustaría usar.


Cómo ejecutarlo

Para ejecutar el script, simplemente guárdalo con la extensión de archivo .VBS. Luego, haz doble clic en su icono en tu Escritorio con tu mouse, como lo harías para iniciar cualquier otro programa.