BAT-файл на применение темы оформления Win7 + закрытие окна "Персонализация"

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

BAT-файл на применение темы оформления Win7 + закрытие окна "Персонализация"

Здравствуйте!
Есть такой батник:

Код:

rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:"C:\Windows\Resources\Themes\ascetic_custom.themepack"

...который применяет тему оформления в Win7, однако оставляет за собой открытым окно "Персонализация".

Вопрос: что вписать в батник, чтобы он захлопывал за собой "Персонализацию"?

Вот эту тему я видел, да: http://forum.oszone.net/thread-189933-2.html
Но что-то не смекаю, как и куда вписать код:

Код:

WinWait($title, "", 10)         

WinSetState ($title, "", @SW_HIDE )

...чтобы он закрывал окно за собой.
Пробовал прямо в батник, но что-то как-то не срабатывает.
AutoIt не установлен. Можно как-то обойтись без оного, чисто средствами системы?

Подскажите, пожалуйста, с синтаксисом этого bat-файла.

Большое спасибо и извините, пожалуйста, если я где-то натупил.

Цитата:

Цитата Fermalion

Но что-то не смекаю, как и куда вписать код: »

В скрипт на AutoIt.

Цитата:

Цитата Fermalion

Пробовал прямо в батник, но что-то как-то не срабатывает. »

Разумеется.

Цитата:

Цитата Fermalion

AutoIt не установлен. Можно как-то обойтись без оного, чисто средствами системы? »

Можно. Пишите на PowerShell.

Iska, подскажите, пожалуйста, синтаксис. Никак не пойму, как это сделать.

Fermalion, я не планирую играться с оформлением. Если нужно быстро — сходите к коллегам из Русское сообщество AutoIt.

в пш - и наверное в vbscript можно переписать так как COM - в en-US Windows 7:

Код:

$shellApplication = New-Object -com 'Shell.Application'

$windows = $shellApplication.windows() | select-object LocationName, HWND, Name

$window = $windows | where-object {$_.LocationName -match'Personalization' -and $_.Visible -eq $true} | select-object -first 1

write-output $window | select-object LocationName,HWND,Name,FullName | format-list

$window.Quit()

взято из
https://devblogs.microsoft.com/scrip...on-a-computer/