my 1C. Полезная информация.

Процедура ПолучитьСписокБаз1()
     Попытка
          scrptCtrl=createobject("MSScriptControl.ScriptControl");
          scrptCtrl.language="vbscript";
          scrptCtrl.addcode("Function Get1CV77Titles()
          |const HKEY_CURRENT_USER = &H80000001
          |Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_
          |""\root\default:StdRegProv"")
          |strKeyPath = ""Software\1C\1Cv7\7.7\Titles""
          |oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues
          |strInfo=vbNullString
          |For i = LBound(arrValues) To UBound(arrValues)
          | call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)
          | strInfo=strInfo & arrValues(i) & ""="" & Value & vbCrLF
          |Next
          |Get1CV77Titles = strInfo
          |End Function");
          Сообщить(scrptCtrl.run("Get1CV77Titles"));
     Исключение
          Сообщить(ОписаниеОшибки());
     КонецПопытки;
КонецПроцедуры
<Сообщил Gloom>

Процедура ПолучитьСписокБаз2()
     Ключ="HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles";
     ИмяКаталога=СокрЛП(КаталогПользователя());
     ИмяБазы=СокрЛП(каталогИБ());
     Если прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\" КонецЕсли;
     Если прав(ИмяБазы,1)<>"\" Тогда ИмяБазы=ИмяБазы+"\" КонецЕсли;
     ИмяБазыСтр=Симв(34)+СтрЗаменить(ИмяБазы,"\","\\")+Симв(34);
     ИмяФайла="USER.TXT";
     Команда="Regedit /ea "+Симв(34)+ИмяКаталога+ИмяФайла+Симв(34)+" "+Симв(34)+Ключ+Симв(34);
     КомандаСистемы(Команда);
     Текст=СоздатьОбъект("Текст");
     Текст.КодоваяСтраница(0);
     Текст.Открыть(ИмяКаталога+ИмяФайла);
     Текст.Показать();
     Стр=""; Нашли=0;
     Для сч=1 по Текст.КоличествоСтрок() Цикл
          Стр=СокрЛП(Текст.ПолучитьСтроку(сч));
          Сообщить(Стр);
          Если Найти(стр,ИмяБазыСтр)<>0 Тогда
               Нашли=1;
               прервать;
          КонецЕсли;
     КонецЦикла;
КонецПроцедуры
<Сообщила Natalia>


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки