Script om bureaubladachtergrond te wijzigen

Positieve werkdag

Afbeelding tegoed: Brusonja/iStock/Getty Images

De meeste gebruikers beseffen het niet, maar Microsoft installeert een kopie van hun Visual Basic Script-taal op elke Windows-computer. Deze eenvoudige maar krachtige taal maakt het mogelijk om bijna elke taak te automatiseren die een gebruiker of beheerder op een systeem moet uitvoeren, zoals het wijzigen van de bureaubladachtergrond.

Teksteditor

Een Visual Basic-script maken is eenvoudig: u hebt alleen een eenvoudige teksteditor nodig, zoals Windows Kladblok. In plaats van het bestand op te slaan met een naam die eindigt op ".TXT", moet het bestand echter worden opgeslagen met een naam die eindigt op ".VBS".

Video van de dag

Het script

Plak het volgende in een teksteditor:

dim shell dim gebruiker

Stel shell = WScript in. CreateObject("WScript. Shell") gebruiker = shell. ExpandEnvironmentStrings("%USERNAME%")

Stel fso = CreateObject("Scripting. BestandssysteemObject")

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

schelp. RegWrite "HKCU\Configuratiescherm\Desktop\Wallpaper", achtergrond

schelp. Voer "%windowsDir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, True uit

Wijzig het bestand "c:\wallpaper.jpg" in het pad en de bestandsnaam van de bureaubladachtergrond die u wilt gebruiken.

Hoe te rennen

Om het script uit te voeren, hoeft u het alleen maar op te slaan met de bestandsextensie .VBS. Dubbelklik vervolgens met uw muis op het pictogram op uw bureaublad, zoals u elk ander programma zou starten.