Как закрыть Лоцию 4.40 из действия/из Скрипта

[Александр]

никто не подскажет?
у нас хотят посещаемость людей отмечать через Лоцию
пришел залогинился - отметка через действие со скриптом - тут нет вопросов
а как выход их Лоции засечь или инициировать?
напрашивается кнопку в меню повесить - а вот какой скрипт она должна запустить? - может есть перехват/дублирование/замена операции - Файл/Выход
?

[Старик Крупский]

Может быть какой-нибудь Application.Close в скриптах есть? Действием и выходить.

[Александр]

нашел только через моникеры, но... по предыдущему опыту не на всех машинах скрипты с ними срабатывали (на 2х из 25 были проблемы и мы не стали их использовать дальше)
короче вот так получилось VBscript в действии

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

Sub By
  Set objShell = CreateObject("WScript.Shell")
  Set objWmi = GetObject("winmgmts:")

  strWmiq = "select * from Win32_Process where name like '%partyp%'"
  Set objQResult = objWmi.Execquery(strWmiq)

  For Each objProcess In objQResult
    intRet = objProcess.Terminate(1)
  Next 
End Sub