'v6.2***************************************************** 

' File:   hintergrundbild.vbs 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

' 

' 

' Ändert das Hintergrundbild des Desktops. 

' (http://www.microsoft.com/communities/newsgroups/en-us/default.aspx?dg=microsoft.public.de.german.scripting.wsh&tid=1f4be8a0-4876-4d10-9a3f-6544d603888d&p=1) 

'********************************************************* 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

Const sWallPaper = "C:\test.bmp" 

 

' update in registry 

WScript.CreateObject("WScript.Shell").RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper 

 

' let the system know about the change 

CreateObject("WScript.Shell").Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True