dim shell
Set shell = WScript.CreateObject("WScript.Shell")
wallpaper = "C:\wallpapers\"
h = Hour(Now())

if h >= 5 and h < 10 then
    wallpaper = wallpaper & "01-Morning.png"
elseif h >= 10 and h < 12 then
    wallpaper = wallpaper & "02-Late-Morning.png"
elseif h >= 12 and h < 16 then
    wallpaper = wallpaper & "03-Afternoon.png"
elseif h >= 16 and h < 18 then
    wallpaper = wallpaper & "04-Late-Afternoon.png"
elseif h >= 18 and h < 20 then
    wallpaper = wallpaper & "05-Evening.png"
elseif h >= 20 and h < 22 then
    wallpaper = wallpaper & "06-Late-Evening.png"
elseif h >= 22 then
    wallpaper = wallpaper & "07-Night.png"
elseif h >= 0 and h < 5 then
    wallpaper = wallpaper & "08-Late-Night.png"
end if

shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True