Script per cambiare lo sfondo del desktop

Giornata positiva al lavoro

Credito immagine: Brusonja/iStock/Getty Images

La maggior parte degli utenti non se ne rende conto, ma Microsoft installa una copia del proprio linguaggio Visual Basic Script su ogni computer Windows. Questo linguaggio semplice ma potente rende possibile automatizzare quasi tutte le attività che un utente o un amministratore dovrà eseguire su un sistema, come cambiare lo sfondo del desktop.

Editor di testo

Creare uno script Visual Basic è facile: tutto ciò che serve è un semplice editor di testo come il Blocco note di Windows. Tuttavia, invece di salvare il file con un nome che termina con ".TXT", il file deve essere salvato con un nome che termina con ".VBS".

Video del giorno

Il copione

Incolla quanto segue in un editor di testo:

dim shell dim utente

Imposta shell = WScript. CreateObject("WScript. Shell") utente = shell. ExpandEnvironmentStrings("%USERNAME%")

Set fso = CreateObject("Scripting. FileSystemOggetto")

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

guscio. RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sfondo

guscio. Esegui "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True

Cambia il file "c:\wallpaper.jpg" con il percorso e il nome file dello sfondo del desktop che desideri utilizzare.

Come correre

Per eseguire lo script, salvalo semplicemente con l'estensione del file .VBS. Quindi, fai doppio clic sulla sua icona sul desktop con il mouse come faresti per avviare qualsiasi altro programma.