[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.
Но распаковать .ехе, чтоб вытащить конкретно скрипт не получилось... Приходится пользоваться так. (Да простит меня Сергей...)