VBS-Code:
Dim WshShell: set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", "%SystemRoot%\Web\Wallpaper\Windows\img1.jpg"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper", "%SystemRoot%\Web\Wallpaper\Windows\img1.jpg", "REG_EXPAND_SZ"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\WallpaperStyle", "0", "REG_SZ"
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Desktop\General\TileWallpaper", "0", "REG_SZ"
wshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Geht auch per GPO.
Gruss,
tester2k5