Перем Свойства[34];
WshShell = CreateObject("WScript.Shell");
FSO=CreateObject("Scripting.FileSystemObject");
oExec=WshShell.exec("rundll32.exe kernel32,SleepEx");
Locator=CreateObject("WbemScripting.SWbemLocator");
Service=Locator.ConnectServer();
ProcessID=Service.Get("Win32_Process.Handle="+oExec.ProcessID).ParentProcessID;    
oExec.Terminate();
NameExe=Service.Get("Win32_Process.Handle="+ProcessID).ExecutablePath;
CommandLine=Service.Get("Win32_Process.Handle="+ProcessID).CommandLine;
Path=FSO.GetParentFolderName(NameExe);
objShell = CreateObject("Shell.Application");
objFolder = objShell.Namespace(КаталогПрограммы());
Для к=1 По 34 Цикл
   Свойства[к] = objFolder.GetDetailsOf(objFolder.Items(), к-1);
КонецЦикла;
oIE = СоздатьОбъект("InternetExplorer.Application");
oIE.navigate("about:blank");
oIE.visible = 0;
oIE.Document.write("<script language='vbscript'>
|Function GetItemPath(Obj,NumItem)
|i=Clng(NumItem)
|GetItemPath=Obj.Items().Item(i).Path
|End Function
|Function GetDetailsOf(Obj,NumItem,NumProp)
|i=Clng(NumItem)
|GetDetailsOf=obj.GetDetailsOf(Obj.Items().Item(i),NumProp)
|End Function
|</script>");
Пока oIE.Busy=-1 Цикл
   Состояние("Ждем...");
КонецЦикла;
Для i=0 По objFolder.Items().count-1 Цикл
   СвойстваФайла="";
   Если Врег(oIE.Document.script.GetItemPath(objFolder,i))=Врег(NameExe) Тогда
       СвойстваФайла="Файл - "+oIE.Document.script.GetItemPath(objFolder,i)+РазделительСтрок;
       СвойстваФайла=СвойстваФайла+"Строка запуска 1С - "+CommandLine+РазделительСтрок;
       СвойстваФайла=СвойстваФайла+"ProcessID - "+ProcessID+РазделительСтрок;
       Для к=1 По 34 Цикл
           СвойстваФайла=СвойстваФайла+""+Свойства[к]+" - "+oIE.Document.script.GetDetailsOf(objFolder,i, к-1)+РазделительСтрок;
       КонецЦикла;
       Предупреждение(СвойстваФайла);
   КонецЕсли;
КонецЦикла;
oIE.Quit();
...
Кстати тут и способ как работать с колекцией vbs из 1С

(0) Всё-таки постараюсь еще раз соблазнить тебя базой знаний. Ведь там можно сделать статью, а здесь дать ссылку на нее, как сделал romix со своей статьей. Атипичное использование компоненты УРБД (статья);

Скоро в базе знаний тоже заработает форматирование кода 1С.

вот они... змеи искусители...

Конечно создам статью, но извини тут тоже буду публиковать
Хороший понт - дороже денег...(с)

(0) Ты б полезного чего-нибудь сделал ...
Хватит уже выставлять на показ своё достоинство ...

(3) Можно публиковать и здесь, и там. Не возбраняется.
На 4-й пост, кстати, тоже можно обратить внимание. Скромность украшает человека. :)

Дак что полезного то можно сделать, хотся за бабло, но неумею к сожалению, да и из деревни мы (почти правда, городишко 48 т.), сейчас правда работаю в другой месности, но живу все в "деревне"

а можно я тоже... ченить полезное сделаю

(4) Это примеры скриптов - их будет находить поиск.
Совет: будьте требовательны к себе... :-)

CommandLine=Service.Get("Win32_Process.Handle="+ProcessID).CommandLine;
{D:\1CBASES\LOCALTRADE\EXTFORMS\СЛУЖЕБНЫЕ\СВОЙСТВА1С.ERT(12)}: Поле агрегатного объекта не обнаружено (CommandLine)

Кстати, или нет, с Item 1С неработает, потомучто там нужен Long, а в 1С его нет :(

(9) Может буковки околорусского написания поменялись? или выкинь, я 2003 опробовал, попробую на 2000 и ХР но потом

(11) Не взлетела. Win3k S

(11) В ХР работает

Собиру весь свой хлам на той неделе опробую на 2000 и доработаю напильником
Тогда наверно и в статью

(14) В kb.mista.ru допускается редактирование своих и чужих статей (все правки видны).