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 lenguaje simple pero poderoso hace posible automatizar casi todas las tareas que un usuario o administrador necesitará realizar en un sistema, como cambiar el fondo del escritorio.

Editor de texto

Crear un script de Visual Basic es fácil:todo lo que necesita es un editor de texto simple como el Bloc de notas de Windows. Sin embargo, en lugar de guardar el archivo con un nombre que termine en ".TXT", el archivo debe guardarse con un nombre que termine en ".VBS".

El guión

Pegue lo siguiente en un editor de texto:

dim shell usuario dim

Establecer shell =WScript.CreateObject("WScript.Shell") usuario =shell.ExpandEnvironmentStrings("%USERNAME%")

Establecer fso =CreateObject("Scripting.FileSystemObject")

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

shell.RegWrite "HKCU\Panel de control\Escritorio\Fondo de pantalla", fondo de pantalla

shell.Ejecute "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, Verdadero

Cambie el archivo "c:\wallpaper.jpg" por la ruta y el nombre de archivo del fondo de escritorio que le gustaría usar.

Cómo ejecutar

Para ejecutar el script, simplemente guárdelo con la extensión de archivo .VBS. Luego, haga doble clic en su icono en su escritorio con el mouse como lo haría para iniciar cualquier otro programa.