Secuencia de comandos para cambiar el fondo de escritorio

La mayoría de los usuarios no se dan cuenta, pero Microsoft instala una copia de su lenguaje Visual Basic Script en todos los ordenadores de Windows. Este lenguaje simple pero potente hace que sea posible automatizar casi todas las tareas necesitarán un usuario o administrador para realizar en un sistema, como cambiar el fondo de escritorio.

Editor de texto

La creación de un Visual Basic Script es fácil: todo lo que necesita es un simple editor de texto como el Bloc de notas de Windows. Sin embargo, en lugar de guardar el archivo con un nombre que termina en ".TXT", el archivo se debe guardar con un nombre que termina en ".VBS."

El guión

Pega el siguiente en un editor de texto:

tenue cáscara

tenue usuario

Set shell = WScript.CreateObject ( "WScript.Shell")

user = shell.ExpandEnvironmentStrings ( "% username%")

Set FSO = CreateObject ( "Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder (0)

fondo de pantalla = "c: \ wallpaper.jpg"

shell.RegWrite "Panel de HKCU \ Control \ Desktop \ papel tapiz", fondos de escritorio

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

Cambiar el archivo "c: \ wallpaper.jpg" a la ruta y el nombre del fondo del escritorio que desea utilizar.

Cómo ejecutar

Para ejecutar el script, simplemente guardarlo con los .VBS extensión de archivo. A continuación, haga doble clic en su icono en el escritorio con el ratón como lo haría para iniciar cualquier otro programa.