Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Ошибка при использовании WMI. Требуется завершать ОЛЕ-экземпляры 1Сv8.exe

Ошибка при использовании WMI. Требуется завершать ОЛЕ-экземпляры 1Сv8.exe
Я
   Ахмадинежад
 
25.12.12 - 12:57
<code>
Шел        =    Новый COMОбъект("Shell.Explorer");
   ФСО            =    Новый COMОбъект("Scripting.FileSystemObject");
   Программа    =    ФСО.GetFile(Шел.fullname()).Name;
   Сеть        =    Новый COMОбъект("WScript.Network");
   Пользователь=    ВРег(Сеть.UserName);
   Компьютер=".";
   
   Локатор        =    Новый COMОбъект("wbemscripting.swbemlocator");
   Сервис        =    Локатор.ConnectServer(Компьютер,"root\cimv2","","","","",128);
   СкриптВБС    =    Новый COMОбъект("MSScriptControl.ScriptControl");
   СкриптВБС.language="vbscript";
   Скрипт        =    Новый COMОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Скрипт.AddObject("Процессы",Сервис.ExecQuery("select * from win32_process where name='"+Программа+"' and commandline like '%-Embedding%'"));
   //Процессы    =    Скрипт.Eval("new Enumerator(Процессы)");
   oP=Сервис.ExecQuery("select * from win32_process where name='"+Программа+"' and commandline like '%-Embedding%'");
   Для каждого p из oP цикл
       Процесс    =    p;
       СкриптВБС.AddObject("p_"+Процесс.ProcessId,Процесс);
       СкриптВБС.Eval("p_"+УбратьПробелы(Строка(Процесс.ProcessId))+".getOwner(user,domain)");//***888***
       Если Пользователь    =    Врег(СкриптВБС.Eval("user")) Тогда
           Сообщить("Убиваем ОЛЕ "+Процесс.ProcessId);
           Процесс.Terminate();
       КонецЕсли;
   КонецЦикла;
</code>

Ошибку выдаёт на строке //***888***

Произошла исключительная ситуация (Ошибка выполнения Microsoft VBScript): Требуется объект: 'p_1144'

Строка, переданная в качестве параметра методу Eval имеет значение: "p_1144.getOwner(user,domain)"
Процесс с PID-ом 1144 в диспетчере задач виден.
________________________
Вопрос: что ему, собсно, надо ?
 
 
   Ахмадинежад
 
1 - 25.12.12 - 13:04
ого как быстро падает
   Лефмихалыч
 
2 - 25.12.12 - 13:13
(0) а что мешает завершать олю так же, как стартовали?
   Ахмадинежад
 
3 - 25.12.12 - 13:20
(2)БазаОле.ЗавершитьРаботуСистемы(Ложь) имеете ввиду ?
Не помогает.
БазаОле = Неопределено также не помогает.
С комконнектором легче, но мне нужна именно Оле
   Лефмихалыч
 
4 - 25.12.12 - 13:48
(3) во-первых, откуда уверенность, что не помогает? во-вторых, почему нужна именно оле?
   Ахмадинежад
 
5 - 25.12.12 - 14:10
(4) увереннсть из практики применения, нужна именно ОЛЕ.
   Ахмадинежад
 
6 - 25.12.12 - 16:50
догорЫ
   Ахмадинежад
 
7 - 25.12.12 - 23:26
я грыбу
   zladenuw
 
8 - 26.12.12 - 00:11

Список тем форума
Рекламное место пустует  Рекламное место пустует
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух.
Фредерик Брукс-младший
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует