Set WshShell = CreateObject( "WScript.Shell" )
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", "C:\windows\GPS Standard Wallpaper.BMP", "REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\OriginalWallpaper", "", "REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\ConvertedWallpaper", "", "REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\TileWallpaper", "0", "REG_SZ"
WshShell.RegWrite "HKCU\Control Panel\Desktop\WallpaperStyle", "2", "REG_SZ"
WshShell.Run "RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters"
Wshshell.Run("%COMSPEC% /c echo Y| cacls ""%USERPROFILE%\My Documents\My Pictures\Picasa Edits\picasabackground.bmp"" /d everyone")

Set WshShell = nothing