идентификатор процесса я имею в виду.

на куя... стесняюсь спросить

можно.

второй закон программирования - все, что нельзя, но очень хочется - можно....

(2) А первый какой? А сколько их всего?

Вот и встретились два одиночества (2) и (3) :))

второй "закон ошибок"...

а далее... еще их целая стопка

Функция GetProcessID()
   Стр="
   |Dim sServer,TestScript
   |sServer = "".""
   |On Error Resume Next
   |Dim SWbemLocator
   |Set SWbemLocator = CreateObject(""WbemScripting.SWbemLocator"")
   |Set WshShell = CreateObject(""WScript.Shell"")
   |Set fso = CreateObject(""Scripting.FileSystemObject"")
   |Set Fold=fso.GetFolder(""."")
   |stRand=Replace(Rand(),"","",""_"")
   |stRand=Replace(stRand,""."",""_"")
   |Set f = fso.OpenTextFile(Fold.ShortPath & ""\Test"" & stRand & "".vbs"", 2, True)
   |f.WriteLine ""Do""
   |f.WriteLine ""WScript.Sleep 10000""
   |f.WriteLine ""Loop""
   |f.Close
   |TestScript=Fold.ShortPath & ""\Test"" & stRand & "".vbs""
   |set oExec=WshShell.exec(""wscript.exe "" & TestScript & "" //B"")
   |Dim SWbemServices
   |Set SWbemServices = SWbemLocator.ConnectServer(sServer,""root\CIMV2"")
   |
   |Dim objWbemObjectSet
   |Set objWbemObjectSet = SWbemServices.ExecQuery(""Select ProcessID,ParentProcessId From Win32_Process WHERE Name='wscript.exe'"", ""WQL"")
   |
   |Function Rand()
   |Randomize
   |Rand=Rnd
   |End Function
   |
   |Function DoWin32_Process
   |
   |DoWin32_Process=0
   |
   |Dim sProperty
   |For Each sProperty in objWbemObjectSet
   |If sProperty.ProcessId=oExec.ProcessID Then
   |DoWin32_Process=sProperty.ParentProcessId
   |sProperty.Terminate()
   |Exit For
   |End If
   |Next
   |oExec.Terminate()
   |fso.DeleteFile TestScript,True
   |End Function";
   СкриптЗапуск=СоздатьОбъект("MSScriptControl.ScriptControl");
   СкриптЗапуск.Language="vbscript";
   СкриптЗапуск.AddCode(Стр);
   ProcessID=Число(СкриптЗапуск.Run("DoWin32_Process");
   Возврат ProcessID;
КонецФункции    // GetProcessID
___________________________
Я конечно далек от мысли...(с)

(1) интересно..

(6) Абрахамс, ты "заскриптишь" имхо что угодно

(6) спасибо.

(9) Можно просче, да кстати лучче позырь тут (в том что тут привел может где и ошибся)
http://karat-e.ru/files/VBS/priority1s.rar

2(smaharbA)
Если не сложно, кинь пример
какие файлы держит процес (пусть 1cvs.exe)
Ну или как узнать какой процесс 1С с какой базой работает?

(11) Счас ненайду, надо снова писать, давай в понедельник ветку создай с точным вопросом, мне пора бяжать

2(12)
Может проще на мыло тебе в понедельник отписать?

(13) Давай, убежал.

(8) ... а если бы он ещё и скрипты сам писал ..., тогда ващще ...

(15) нарушает чьи-то авторские права? ;-)

(15) Нет, нумаю не нарушает ..., просто тупо копипастит ...

Ну вот еще "тупое копипасте"

Функция GetProcessID()
стр="
|Function PPID()
|Set WshShell = CreateObject(""WScript.Shell"")
|set oExec=WshShell.exec(""rundll32.exe kernel32,Sleep"")
|Set objLocator = CreateObject(""WbemScripting.SWbemLocator"")
|Set objService = objLocator.ConnectServer(""."",""root/cimv2"")
|Set objWbemObjectSet = objService.ExecQuery(""Select ProcessID,ParentProcessId From Win32_Process WHERE ProcessID='"" & oExec.ProcessID & ""'"", ""WQL"")
|For Each sProperty in objWbemObjectSet
|    PPID=sProperty.ParentProcessId
|sProperty.Terminate()
|Next
|End Function";
 СкриптЗапуск=СоздатьОбъект("MSScriptControl.ScriptControl");
  СкриптЗапуск.Language="vbscript";
  СкриптЗапуск.AddCode(Стр);
  ProcessID=Число(СкриптЗапуск.Run("PPID"));
  Возврат ProcessID;
КонецФункции    // GetProcessID

Еще более "тупое копипасте"...
Функция GetProcessID()
стр="
|Function PPID()
|Set WshShell = CreateObject(""WScript.Shell"")
|set oExec=WshShell.exec(""rundll32.exe kernel32,Sleep"")
|set objWbemObjectSet=GetObject(""winmgmts:Win32_Process.Handle="" & oExec.ProcessID)
|PPID=objWbemObjectSet.ParentProcessId
|objWbemObjectSet.Terminate()
|End Function";
СкриптЗапуск=СоздатьОбъект("MSScriptControl.ScriptControl");
 СкриптЗапуск.Language="vbscript";
 СкриптЗапуск.AddCode(Стр);
   ProcessID=Число(ЗапускСкрипта(Скрипт,"PPID",Стр));
   Возврат ProcessID;
КонецФункции    // GetProcessID
__________________________
Я конечно далек от мысли...(с)

рассердился

(20) Ага, теперь уж точно по (11) решение сделаю... С помощью "тупого копипасте"

Рупор он такой... злой короче ;)