Нашёл способ на
http://forum.ixbt.com/topic.cgi?id=22:83925
В
Сценарий входа в политике пишем скрипт:
Код:
Set wshShell = WScript.CreateObject ("WSCript.shell")
Set WshShell = CreateObject("WScript.Shell")
wshshell.Run "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:""%LocalAppData%\Microsoft\Windows\Themes\<имя>.theme""",0, True
WScript.Sleep(600)
wshshell.SendKeys ("%{F4}")
Set wshshell = Nothing
Всплывающее окошко при загрузке не особо заметно, но главное что тема устанавливается! Если кто найдёт более удобный способ, то очень буду признателен.
Путь до темы может быть абсолютно любой, но раз уж они сохраняются по указанному, то оставлю как есть.
Рад, если кому-то это поможет!
Ведь одно дело поменять обои и совершенно другое - тему, где есть несколько обоев и они меняются по времени, согласитесь - это приятнее.
-=SCH=-
