Script per modificare lo sfondo del desktop

La maggior parte degli utenti non se ne rende conto, ma Microsoft installa una copia del proprio linguaggio di script Visual Basic su ogni computer Windows. Questo linguaggio semplice ma potente consente di 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 di Visual Basic è facile:tutto ciò che serve è un semplice editor di testo come 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".

Il copione

Incolla quanto segue in un editor di testo:

dim shell dim utente

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

Imposta fso =CreateObject("Scripting.FileSystemObject")

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

shell.RegWrite "HKCU\Pannello di controllo\Desktop\Wallpaper", sfondo

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

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

Come correre

Per eseguire lo script è sufficiente salvarlo con estensione .VBS. Quindi, fai doppio clic sulla sua icona sul desktop con il mouse come faresti per avviare qualsiasi altro programma.