Следующий пакетный код отлично работает при непосредственном запуске (открывает окно «Настройки», устанавливает тему Windows 7 в качестве фона, затем закрывает окно «Настройки»), но при запуске в папке «Автозагрузка» создает два экземпляра окна «Настройки» (один из которых указывает, что он не может загрузить ) и не удаляет ни один экземпляр). Перепробовал вариации но ничего не дало до желаемого результата.

control /name Microsoft.Personalization
start C:\Windows\Resources\Themes\aero.theme
timeout 2

set temp_vbs="%TEMP%\%~nx0.tmp0.vbs"
(
    echo Dim objShell
    echo Set objShell = CreateObject("WScript.Shell"^)
    echo If objShell.AppActivate("Personalization"^) = True Then
    echo    objShell.SendKeys("%%{F4}"^)
    echo End If
) > %temp_vbs%
cscript %temp_vbs% /

del %temp_vbs%
|источник

0