[решено] Помогите грамотно записать батник применение темы в Seven

[Iska]

a чем не подошел мой пример ? »
«Не cmd», видимо ;).

[Serguei Kouzmine]

лирическое отступление - cmd был придуман когда windows | deskstop | windows stations не было даже в проекте вот неумеет он ничо

во vbscript - кто умеет превести на js пожта

Dim objShell: Set objShell = WScript.CreateObject("WScript.Shell")
Dim objShellApplication: Set objShellApplication = WScript.CreateObject("shell.application")
Dim objWindows : set objWindows = objShellApplication.Windows()
Wscript.echo objWindows.Count
Dim objWindow
For cnt = 0 To objWindows.Count-1
set objWindow = objWindows.item(cnt)
LocationName = objWindow.LocationName
' NOTE double quotes
if InStr(LocationName,"Personalization") > 0 then
Wscript.echo "Closing " & objWindow.HWND
objWindow.Quit()
end if
Next
Set objShell = Nothing
Set objWindows = Nothing
Set objShellApplication = Nothing

[Vanadiy777]

Кто то мне подкинул автоит скрипт, который применяет любую тему при запуске его из командной строки типа:
Код:
ThemeApply.exe "New Look Dark WD"
и исходник я потерял. сейчас нужно скомпилировать для x86 системы и полный косяк. А кто и где мне его подкинул не помню. может у кого исходник этого скрипта есть? Сам exe прикрепляю »

Тоже ищу такой исходник. У Smarty такой-же механизм реализован в теме Aero Red Button Theme Installer. Но в нем работает и в х86 и в х64.
Но распаковать .ехе, чтоб вытащить конкретно скрипт не получилось... Приходится пользоваться так. (Да простит меня Сергей...)