получение pid в 1с

gistfile1.txt

Функция ПолучитьPID()
    Перем oLocator, oService, oShell, oApp, oChildProcess;
    Перем чPID;

    чPID = -1;
    Попытка
        oLocator = СоздатьОбъект("WbemScripting.SWbemLocator");
        oService = oLocator.ConnectServer(".", "root\CIMV2");
        
        // Запускаем дочерний rundll32.exe
        oShell = СоздатьОбъект("WScript.Shell");
        oApp = oShell.Exec("rundll32.exe kernel32,Sleep");
        // Получаем rundll32 по PID'у
        oChildProcess = oService.Get("Win32_Process.Handle=" + oApp.ProcessID);
        // Получаем PID родительского процесса - 1с
        чPID = oChildProcess.ParentProcessID;
        // Завершаем rundll32, чтобы не мусорить
        oChildProcess.Terminate();
    Исключение
        // нуу, может не быть прав на эти вещи, например.
    КонецПопытки;
    Возврат чPID;
КонецФункции // ПолучитьPID()
//________________________________________________________________________________
 
Процедура Сформировать()
    Сообщить("PID: " + ПолучитьPID());
КонецПроцедуры // Сформировать()