Script para cambiar el fondo del escritorio
La mayoría de los usuarios no se dan cuenta, pero Microsoft instala una copia de su lenguaje Visual Basic Script en cada computadora con Windows. Este simple pero poderoso lenguaje hace que sea posible automatizar casi cualquier tarea que un usuario o administrador deberá realizar en un sistema, como cambiar el fondo del escritorio.
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.
