Script per modificare sfondo del desktop

October 5

La maggior parte degli utenti non si rendono conto, ma Microsoft installa una copia del loro linguaggio Visual Basic Script su ogni computer Windows. Questo linguaggio semplice ma potente rende possibile automatizzare quasi ogni compito un utente o un amministratore sarà necessario eseguire su un sistema, come ad esempio cambiare lo sfondo del desktop.

Editor di testo

Creazione di uno script Visual Basic è semplice: 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 in ".TXT", il file deve essere salvato con un nome che termina in ".VBS."

Il copione

Incollare il seguente in un editor di testo:

shell dim

utente dim

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

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

Set fso = CreateObject ( "Scripting.FileSystemObject")

windowsDir = fso.GetSpecialFolder (0)

carta da parati = "c: \ wallpaper.jpg"

"\ Wallpaper Panel HKCU \ Control \" shell.RegWrite, carta da parati

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

Modificare il file "C: \ wallpaper.jpg" per il percorso e il nome del file di sfondo del desktop che si desidera utilizzare.

Come eseguire

Per eseguire lo script, è sufficiente salvarlo con le .VBS estensione di file. Quindi, fare doppio clic sulla sua icona sul desktop con il mouse come si farebbe per avviare qualsiasi altro programma.