Ну тут только AutoIt тебе в помощь. Стандартными средствами винды не поменять.
вот пример скрипта:
Код: Выделить весь код
$theme = "Luna"
$title = "Свойства: Экран"
If FileExists (@WindowsDir & "\Resources\Themes\" & $theme & ".theme") Then
ShellExecute (@WindowsDir & "\Resources\Themes\" & $theme & ".theme")
WinWait ($title,"",10)
If WinExists ($title) Then ControlClick ($title,"",1)
Else
MsgBox (16,'Ошибка применения Темы','Тема "' & $theme & '" не обнаружена! ')
EndIf
Вот, кстати, ссылка на небольшую статью.