Вход | Регистрация

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 человек.
Рекламное место пустует