Wallpaper switch-case update

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

Select Case h
  Case 0,1,2,3,4
    document.write("Late Night")
  Case 5,6,7,8,9
    document.write("Morning")
  Case 10,11
    document.write("Late Morning")
  Case 12,13,14,15
    document.write("Afternoon")
  Case 16,17
    document.write("Late Afternoon")
  Case 18,19
    document.write("Evening")
  Case 20,21
    document.write("Late Evening")
  Case Else
    document.write("Night")
End Select

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