http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4