Script per cambiare sfondo desktop

La maggior parte degli utenti non lo sa, ma Microsoft installa una copia del linguaggio Visual Basic Script su ogni computer Windows. Questo linguaggio semplice ma potente permette di automatizzare quasi ogni task che un utente o amministratore deve eseguire, come cambiare lo sfondo del desktop.

Editor di testo

Creare uno script Visual Basic è facile: serve solo un editor di testo semplice come Blocco note di Windows. Invece di salvare con estensione ".TXT", il file deve essere salvato con nome che finisce in ".VBS".

Lo script

Incollate quanto segue in un editor di testo:

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

Cambiate il file "c:\wallpaper.jpg" con percorso e nome dello sfondo che volete usare.

Come eseguire

Per eseguire lo script, salvatelo con estensione .VBS. Poi, fate doppio clic sulla sua icona sul Desktop come per avviare qualsiasi altro programma.