Option Explicit
Public wscr
Public Const Wallpaper = "C:\Program Files\Bixarrio's Wallpaper Rotator\wallpaper.bmp"
Set wscr = CreateObject("WScript.Shell")
wscr.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", Wallpaper
wscr.Popup "Wallpaper Changed!"
Set wscr = Nothing