Выборка групп справочника

все прекрасно доступно

вот рабочий кусок кода

ПутьКБазе="D:\DB77\";
    Пользователь="Администратор";//пользователь базы 7.7
    Пароль="";
    МонопольныйРежимOLE = ""; // " /m";
    ЗапускБезЗаставки = 0;
    База = Новый COMОбъект("V77.Application");
    СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";
    РезультатПодключения=База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));

    Если НЕ РезультатПодключения Тогда
        Сообщить("Не удалось произвести подключение к информационной базе");
    Иначе
        Сообщить("ОК!");

    КонецЕсли;

    СозданоГрупп = 0;
    СозданоШК = 0;
    СозданоЭлементов = 0;


   //перенос групп номенклатуры


   Номенкл = База.CreateObject("Справочник.Номенклатура");
    Номенкл.ВыбратьЭлементы();



     Пока (Номенкл.ПолучитьЭлемент() = 1)Цикл
        Если (Номенкл.ЭтоГруппа()=1) И (Номенкл.ПометкаУдаления()=0) Тогда


            СоздатьГруппу(Номенкл.Код,Номенкл.Наименование,Номенкл.Родитель.Код);
            СозданоГрупп = СозданоГрупп + 1;




        КонецЕсли;
    КонецЦикла;
   Сообщить ("Создано групп " + СозданоГрупп);