Изменение фона рабочего стола в зависимости от времени суток с помощью сценария Windows 8.1

Это плохой ответ и не следует использовать:

этот скрипт эмулировать щелкните правой кнопкой мыши на картинке и нажмите "Установить в качестве фона рабочего стола". Использование скрипта должно быть понятно SetWallPaper "directory to picture", "filename of picture", "name context menu to run".

'File encoding should be in ANSI
SetWallPaper "C:\icons\", "Potato-icon.png", "Set as desktop &background"

Sub SetWallPaper(WallPaperFolder, WallpaperFile,VerbName)
dim objShell, objFolder, objFolderItem, objVerb, colVerbs
Set objShell = CreateObject("Shell.Application")
set objFolder=objShell.NameSpace(WallPaperFolder)
set objFolderItem=objFolder.ParseName(WallPaperFile)
set colVerbs=objFolderItem.Verbs
for each objVerb in colVerbs
    'msgbox objVerb ,0, "Press CTRL+C for copy text" 'uncomment for debug names in contextmenu
    if objVerb=VerbName then
        'x=msgbox(objVerb ,0, "omg found")
        objVerb.DoIt
        'Without the sleep command the change never takes effect on Win7.
        wscript.sleep(2000)
        wscript.quit
    end if
next
End Sub

Если ваши окна имеют другое имя для "установить в качестве фона рабочего стола" при щелчке правой кнопкой мыши на картинке:

• вы должны раскомментировать строку(убрать одиночные кавычки) после для каждой objVerb в colVerbs
• затем запустите скрипт и найдите (ENTER for следующий сообщение) равная строка " установить в качестве рабочего стола и фона" для вашего языка нажмите CTRL+C для сохранения сообщения.
• откройте блокнот и нажмите CTRL+V, чтобы вставить сообщение. Скопируйте этот имя для сценария.

на основе этой

Если вы не ошибетесь, будет работать по крайней мере в Windows 7.