Определить разрядность запущенного TC

Flasher

gora
Так нужен или нет? Если да, то прошу ещё раз ответить на вопрос о месте скрипта в цепочке. И что лучше, писать значение в какой-то временный файл, чтобы батник читал оттуда или через WScript.StdOut?

Если так уж хочется cmd, то можно команду wmic поковырять, чтобы получить родителя установщика. Получаем родителя - получаем имя. Я правда не по имени определяю, а по более надёжному методу.
Кстати, Exe-шник ТСx64 можно переименовывать?

gora · Сообщение **gora** » Пт янв 20, 2012 21:05

Flasher
Нужен.
Запускаться будет из батника.
Значение писать в файл (рядом со скриптом), т.к., значение я буду считывать тем же батником.

Flasher

gora
А как же скрипт будет писать в файл, расположенный внутри установщика? Или скрипт тоже будет из временной папки вызываться?

gora · Сообщение **gora** » Пт янв 20, 2012 21:14

Flasher
Все происходит во временной папке.

Flasher

Ок, понял.

Код: Выделить всё

If CreateObject("WScript.Shell").Environment("Process")("COMMANDER_PATH") = "" Then WScript.Quit
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set FSO = CreateObject("Scripting.FileSystemObject")
' Узнаём PID родителя скрипта:
For Each P in WMI.ExecQuery("SELECT ParentProcessId FROM Win32_Process WHERE ExecutablePath Like '" &_
Replace(WScript.FullName,"\","\\") & "'")
  Parent = P.ParentProcessId
Next
' Узнаём путь к TC:
Do Until StrComp(Left(Name, 8), "totalcmd", 1) = 0 And StrComp(FSO.GetExtensionName(Name), "exe", 1) = 0
  For Each P in WMI.ExecQuery("SELECT Caption, ExecutablePath, ParentProcessId FROM Win32_Process WHERE ProcessId Like " & Parent)
    Name   = P.Caption
    TC     = P.ExecutablePath
    Parent = P.ParentProcessId
  Next
Loop

' Создаём рядом со скриптом файл и пишем в него битность:
If FSO.GetFile(TC).Size < 7000000 Then Arch = "x32" Else Arch = "x64"
FSO.OpenTextFile(FSO.GetParentFolderName(WScript.ScriptFullName) & "\Arch.txt", 2, True).WriteLine Arch
Set WMI = Nothing : Set FSO = Nothing : WScript.Quit

Я мог и через выходной поток, но раз нужно через текстовый файл, то...

Add: кое-что поправил.

gora · Сообщение **gora** » Сб янв 21, 2012 00:22

Flasher
Потестировал.
Во всех вариантах запуска на x64\x86 OS и x64\x86 TC в файле x64.

Flasher

gora
Как вызывается батник? Можно поставить отладочную строку MsgBox TC перед ' Создаём ...
Что покажет?

gora · Сообщение **gora** » Сб янв 21, 2012 09:44

Flasher
Разобрался на свежую голову. Скрипт работает! Спасибо.
Пришлось увеличить число уровней вложенности в скрипте на 2, т.к., я не учел запуск батника через CMD+рекурсивный запуск самого SFX.
Но что хотелось бы заметить. Скрипт определяет разрядность не процесса ТС, а разрядность родительского процесса при фиксированной "глубине вложенности". Это не позволит использовать его при произвольной вложенности процесса скрипта. Может быть доработать скрипт и анализировать хотя бы имя процесса по маске "Totalcmd*.exe", а число уровней вложенности сделать не фиксированным?

Flasher

gora писал(а):т.к., я не учел запуск батника через CMD+рекурсивный запуск самого SFX.

Как раз выше про cmd писал. А SFX, я так понимаю, идёт перед установщиком?

gora писал(а):Это не позволит использовать его при произвольной вложенности процесса скрипта.

Так цель была использовать в инсталляторе. Там же вложенность известна теперь заведомо.

gora писал(а):Может быть доработать скрипт и анализировать хотя бы имя процесса по маске "Totalcmd*.exe", а число уровней вложенности сделать не фиксированным?

Сделано.
Add: Заменил на полноценную маску.

gora · Сообщение **gora** » Сб янв 21, 2012 12:44

Flasher писал(а):Заменил на полноценную маску

Не работает должным образом.
При запуске TC -> скрипт, или TC -> батник -> скрипт, или Проводник -> батник -> скрипт всегда показывает разрядность своего непосредственного родителя. Т.е., цикл срабатывает только один раз.
Для проверки добавил в цикл

Код: Выделить всё

MsgBox Name & " - " & TC & " - " & Parent & " - " & LCase(Left(Name, 8)) & " - " & LCase(FSO.GetExtensionName(Name))

и окно появляется только один раз.
Неплохо бы добавить "защиту от дурака", т.е., от запуска скрипта вообще без ТС, что бы скрипт не повисал в бесконечном поиске ТС.

Flasher

gora, поправил.

gora · Сообщение **gora** » Сб янв 21, 2012 14:55

Flasher
Теперь работает. Спасибо!
"Защита от дурака" оказалась неэффективной. Запустил ТС, затем из Проводника запустил батник и скрипт зациклился.
Убрал проверку переменной COMMANDER_PATH, добавил счетчик в петлю и выхожу из скрипта при превышении счетчиком установленного числа (заведомо большего возможной глубины вложения запуска скрипта). Теперь "защита" работает как надо.

Flasher

gora писал(а):Запустил ТС, затем из Проводника запустил батник и скрипт зациклился.

Не подтверждаю. Вызываю explorer хоть из ТС, хоть по Win+E, оттуда скрипт, ничего не зацикливается. Там же из контекстрого меню на файле выбираю "Открыть в командной строке" - тишина.
А счётчик я сам сперва предложил, потом вспомнил про внутренние переменные среды.

Lev · Сообщение **Lev** » Пн янв 23, 2012 16:52

Flasher писал(а):Так там надо строки расшифровывать в ini, Не, не пойдёт.

При чём тут ini? Зачем расшифровывать в них строки? Или это был ответ не на мой пост?

Flasher

Это ответ на твой пост. Строки в Ini, касаемые About, действительно нет смысла расшифровывать, т.к. нужно было получать путь к TC, а не ini файлам, которые к топику отношения никакого не имеют. Вообще не понял смысл твоего предложения.