//*******************************************
Функция Win32_X(Путь="Win32_process",Фильтр="name='1CV7S.EXE'",Компьютер=".")
Если ПустоеЗначение(Фильтр)=1 Тогда
Ф="";
Иначе
Ф= "Where "+Фильтр;
КонецЕсли;
Сп=СоздатьОбъект("СписокЗначений");
Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.Language="javascript";
Локатор=СоздатьОбъект("wbemscripting.swbemlocator");
Сервис=Локатор.ConnectServer(Компьютер,"root\cimv2");
Коллекция=Сервис.ExecQuery("Select * from "+Путь+" "+Ф);
Если Коллекция.count=0 Тогда
Сп.ДобавитьЗначение("Ненайдены экземпляры","Select * from "+Путь+" "+Ф);
Возврат Сп;
КонецЕсли;
Скрипт.AddObject("Коллекция",Коллекция);
Перечисленные=Скрипт.Eval("new Enumerator(Коллекция)");
Свойства=Перечисленные.item(0).Properties_;
Скрипт.AddObject("Свойства",Свойства);
//Текст="";
Пока Перечисленные.atEnd(0)=0 Цикл
ПеречисленныеСвойства=Скрипт.Eval("new Enumerator(Свойства)");
Пока ПеречисленныеСвойства.atEnd(0)=0 Цикл
Стр=ПеречисленныеСвойства.item(0).name;
Сп.ДобавитьЗначение(Перечисленные.item(0).Properties_.Item(Стр).Value,Стр);
//Текст=Текст+Стр+": "+Перечисленные.item(0).Properties_.Item(Стр).Value+РазделительСтрок;
ПеречисленныеСвойства.moveNext(0);
КонецЦикла;
Перечисленные.moveNext(0);
КонецЦикла;
Возврат Сп;
//Предупреждение(Текст);
КонецФункции
Процедура Сформировать()
Перем Стр;
Сп=Win32_X("Win32_Share","");
ТекстВывода="";
Для к=1 По Сп.РазмерСписка() Цикл
Сп.ПолучитьЗначение(к,Стр);
ТекстВывода=ТекстВывода+Стр+": "+Сп.ПолучитьЗначение(к)+РазделительСтрок;
КонецЦикла;
Предупреждение(ТекстВывода);
КонецПроцедуры // Сформировать
