O código em lotes a seguir funciona perfeitamente quando executado diretamente (abre a janela Preferências, define o Tema do Windows 7 como plano de fundo e fecha a janela Preferências), mas quando iniciado na pasta Inicializar cria duas instâncias da janela Preferência (uma delas indica que carregue) e não apaga nenhuma das instâncias). Tentei variações, mas nada chega ao resultado desejado.
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%
Tags windows-7