Скрипт для изменения фона рабочего стола

Большинство пользователей не осознают этого, но Microsoft устанавливает копию своего языка сценариев Visual Basic на каждый компьютер с Windows. Этот простой, но мощный язык позволяет автоматизировать практически все задачи, которые пользователю или администратору необходимо выполнить в системе, например изменить фон рабочего стола.

Текстовый редактор

Создать сценарий Visual Basic несложно:все, что вам нужно, — это простой текстовый редактор, такой как Блокнот Windows. Однако вместо сохранения файла с именем, оканчивающимся на ".TXT", его необходимо сохранить с именем, оканчивающимся на ".VBS".

Сценарий

Вставьте следующее в текстовый редактор:

тусклая оболочка тусклого пользователя

Установите shell =WScript.CreateObject("WScript.Shell") user =shell.ExpandEnvironmentStrings("%USERNAME%")

Установите fso =CreateObject("Scripting.FileSystemObject")

windowsDir =fso.GetSpecialFolder(0) wallpaper ="c:\wallpaper.jpg"

shell.RegWrite "HKCU\Панель управления\Рабочий стол\Обои", обои

shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

Измените файл "c:\wallpaper.jpg" на путь и имя файла фона рабочего стола, который вы хотите использовать.

Как запустить

Чтобы запустить скрипт, просто сохраните его с расширением файла .VBS. Затем дважды щелкните его значок на рабочем столе с помощью мыши, как если бы вы запускали любую другую программу.