[alex040269]

Доброе время суток. Скажите, плиз, есть функция или функции, что бы можно было посмотреть перечень ИБ?

Спасибо.

[gryphus]

Что-то вопрос непонятный.

[Ardi]

Из реестра виндовса.

[Pepe]

Есть програмулька, сканирующая указанный путь и выводящая инфу о встреченных базах.

[Vofka]

Человека интересует 1С-ная функция, которая, возможно из реестра, покажет перечень ИБ

[Ardi]

Функция ПолучитьСписокБаз()
    Перем Value,arrValues;
    Scr = CreateObject("MSScriptControl.ScriptControl");
    Scr.Language = "vbscript";
    Scr.Timeout=-1;
    HKEY_CURRENT_USER = 2147483649;
    strKeyPath = "Software\1C\1Cv7\7.7\Titles";
    Locator=СоздатьОбъект("WbemScripting.SWbemLocator");
    ServiceDef=Locator.ConnectServer(".","root\default");
    oReg = ServiceDef.Get("StdRegProv");
    Dict=СоздатьОбъект("Scripting.Dictionary");
    Scr.AddObject("Dict",Dict);
    Scr.AddObject("oReg",oReg);
    Scr.ExecuteStatement("dim arrValues,Value:");
    Scr.ExecuteStatement("oReg.EnumValues "+HKEY_CURRENT_USER+","""+strKeyPath+""",arrValues:");
    Scr.ExecuteStatement("for i=lbound(arrValues) to ubound(arrValues):Dict.add ""pj"" & i, arrValues(i):next");
    ТЗБаз=СоздатьОбъект("ТаблицаЗначений");
    ТЗБаз.НоваяКолонка("Путь");
    ТЗБаз.НоваяКолонка("Описание");
    Для к=0 По Dict.count Цикл
        Д=Dict.Item("pj"+к);
        Scr.ExecuteStatement("oReg.GetStringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");
        ТЗБаз.НоваяСтрока();
        ТЗБаз.Путь = Д;
        ТЗБаз.Описание = Scr.eval("Value");
    КонецЦикла;
    //ТЗБаз.ВыбратьСтроку();
 
    Возврат ТЗБаз;
КонецФункции    // ПолучитьСписокБаз

[alex040269]

Мда, сильно кратко написал, тема - ИБСозданияОбъекта - функция, которая возвращает код Информационной базы, где был создан объект, полезна при УРБД.
Так вот, меня интересует, как можно получить список ИБ, учавствующих в УРБД. И если возможно, то получить наименование этой ИБ, как она задана в конфигураторе, настройках УРБД.
Всем откликнувшимся - Спасибо. Извините, за флуд.

[Zaval]

Все штатные возможности - в urbd.als