Как рекурсивно обойти реестр ? #97766

Как получить дерево ключей и каталогов реестра. Просто нужно получить файл, содержащий дерево ключей и каталогов, для дальнейшей обработки в 1С:...hklm/hklm/Microsoft/hklm/Microsoft/Windows/...Hkcu/...т.е чем сделать рекурсивный обход реестра (WSH не позволяет, WMI не знаю).Подскажите, коллеги, очень надо.

Задача найти определенные папки, разбросанные по реестру, и привести параметры в соответствие с помощью обработки. Затык - на обходе реестра.Зачем? Автоматически вычищать проявления ошибок платформы 1С, чтобы юзер не лазил туда ручками. Подскажите решение!

Спецы! Неужели вариантов нет? А так хотелось "Шнобелевскую премию..!"PS. Поделюсь!

ты с принтерами разобрался?

WSH не позволяет рекурсию, но 1С может вызывать функции рекурсивно, нет?

-спасибо, что узнал меня, редко за советами обращаюсь, но настырно, этого не отнимешь... Разобрался в том, что не получается, хотя всем спасибо. Но так и не получил желаемого результата. Должно работать как-бы, но у меня "всегда готов"! Пока оставил тему, изучаю Рихтера.Теперь по теме - есть замороченный вариант циклов в цикле с помощью WMI..On Error Resume NextFor Each subkey In arrSubKeys  Names =Names & subkey & vbCrLfNextЭтот кусок выводит список только для rasdelstrKeyPath ,т.е по каждой строке Names опять цикл и т.д...., пока не наткнусь на нужную папку...Как то криво очень... Рекурсивную бы функцию....

не знаю, что ответить.. не понял это вопрос или совет. Надо см. и все! Остальное дело техники. В застрял я !

sdaf! Я тебе ответил. Кто по теме поможет советом "бывалых"!

неужели придется писать рекурсию "циклы в циклах"? Боюсь комп перегреется.. Хоть на мысль натолкните!

а не просче выгрузить нужную ветку(ключь), поправить и загрузить обратно, можно все это и программно делать, так и быстрее будет, чем искать "то незнамо что" во всем реестре

- проще, но не подходит! Куча баз, куча юзеров, вложенность искомого разная, ищу moxel, в них параметры проверяю на отрицательность и правлю.Проблема часто лезет, надо автоматизировать, а то только и лазишь по реестрам юзеров руками... (площадь охвата квадратные километры)!Короче, похоже от "ручной работы" просто так не уйти...? Ну где-же мысли коллективного разума?

А кто мешает здесь применить простейший обход k-ичного дерева (ака Метод ветвей и границ)? Уж тут материала предостаточно. Это явно преподают в курсе алгоритмизации в любой программерской специальности... Материалов - дофига (спросите у яндекса)...А обход структуры дерева вложенными циками - уж извините меня - повод усомниться в адекватности умственного развития вопрошавшего...

Квадратно-гнездовой способ посадки юзеров в лунки в действии...Не, ну нравится мне наш народ....P.S. исправь ошибки в конфах и забей... Остальное само наладится...

- самоучка я! Специалисты редко на форумах сидят в качестве вопрошающих. Нарисуй пару строк для понимания, пожалуйста! Второй раз прошу - что в конфах править? Если параметры страницы явно указывать, так это я догадался. Или еще что-то?Ну помочь же прошу, а не диагноз психолога ставить!!!!!!!!!

PS. Вот заметил - почти всегда - чего не спрошу, в лучшем случае обо..рут, в худшем - промолчат... или наоборот! Я ж не прошу конфу задаром написать, конкретные вопросы спрашиваю!

Первая ссылка из яндекса на тему "обход деревьев" - >Даже в ней все необходимые блок-схемы присутствуют в явном виде, даже с примерами на c++.Дальше - больше... Рекурсивный алгоритм обхода структуры дерева находится за 5 минут. Переписать все это под любой другой язык - и вперед!

Мне просто интересно... Исправит это или нет фирма в 4.67...Тогда и расскажем...

PIT ! - Супер! Но я не виноват, что в моем колхозе поля квадратные...

- Да у меня уже вся Буха переписана 3 года назад, только интересности добавляю. Все пашет, все ОК. Их недоработки уже не тревожат.. Все изменения делаю сам. И дело-то не в Бухи, а в платформе похоже, а ее сколько ждать?.... Подробнее про проблему подскажите! Хоть ссылкой! Надо мне! Надо! Премию хочу! (шучу, но серьезно, братцы!)

ну зря ты так... я могу тебе совет дать - я его тебе даю... писать обход реестра - ну нет у меня времени просто на это. Я ж не пишу тебе письма типа - я даю конкретный совет (в первом абзаце все четко написано - и где спросить, и чего спросить) - как тебе НАПИСАТЬ то, что ты хочешь...Если ты изначально не можешь себе представить алгоритм, который на первом курсе преподается - то тогда дорога в библиотеку или магазин за "Искусством программирования" Д.Кнута... Или хотя бы, опять же, спроси у того же яндекса работы А.А.Шалыто - там, IMHO, разжевано все гораздо более просто, чем у Кнута.

говорит о том, что вряд ли чего тебе уже поможет... с такими познаниями переписать все? Боюсь я за твою конфу... :(

- не видел ! Иду на ссылку.... Но если кто сжалится над бывшим "трактористом", пишите конкретнее. Я еще вернусь! Спасибо!

+ братцы! На ссылке все классно! Но это СИ!, а Карнегана и Ритчи я не успел дочитать... Скоро свет в колхозе выключат! Дайте хотя-бы сырой код для ! Премия пропадет, обещал к рассвету Председателю сделать... Спасибо!

Свет отрубили...! Живу еще минут 10 на аккумуляторе от списанного трактора.. И пойду в избу, там есть новый аккумулятор, но нет интернета (телефона). Подскажите код, пока я с вами!!!!!

Пора подрубать дизель-генератор :(

-а солярки нет! Выручайте, братцы!

Спасибо всем, кто отозвался! Батарея сдохла.. Завтра возьму больничный, попытаюсь время потянуть.. ПРемию терять жалко.. Завтра повезет, уверен!Кто-нить отзовется..Проблема: Как получить дерево ключей и каталогов реестра. Просто нужно получить файл, содержащий дерево ключей и каталогов, для дальнейшей обработки в 1С:...hklm/hklm/Microsoft/hklm/Microsoft/Windows/...Hkcu/...т.е чем сделать рекурсивный обход реестра ?

делай, читай описания и хелпы(работает хотя рекурсия проверяется кривовато "Variant", нет желания шевелить мозгами)Dim rgSubconst HKEY_CURRENT_USER = &H80000001oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeysFor Each subkey In arrSubKeysNextend function

+ поправочка Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\"&strComputer&" ootdefault:StdRegProv")(вообщето раньше не лез в WMI, предпочитаю "дедовские" методы выгрузка+загрузка нужных веток/ключей)

Я бы написал нужную обработку где-нибудь не в 1с (да хоть в Delphi), а в 1с-ке бы ее вызывал как внешнее приложение... всяко не дольше будет...

- спасибо, но если так:rgSub=arrSubKeysoReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeysFor Each subkey In arrSubKeysNames=Names&subkey&vbCrLfWScript.Echo (Names)....то выдает только список одного уровеня, как и , а рекурсии нет.Подскажите, где подправить...?

+ не попадаю под условие if TypeName(rrSubKeys)="Variant" then !

слеш завершающий надо обязательно strKeyPath = "Software1C1Cv77.7"

Тогда строка 17 символ 1 память заблокирована! - ошибка.

+ после первого же попадания под условие if TypeName(rrSubKeys)="Variant" then !

Names=Names&strKeyPath&subkey&vbCrLfв начале только Names="" после Dim сразу

smaharbA, что делать-то? чуть-чуть осталось чую, подумай, подскажи!

rgSub=arrSubKeysoReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeysFor Each subkey In arrSubKeys'Names=Names&subkey&vbCrLfNames=Names&strKeyPath&subkey&vbCrLfWScript.Echo (Names).....Выдает одно окно Software1C1Cv77.7Basa, и опять ошибка :строка 14 символ 1 память заблокирована

Почему и что за память блокируется? WinXPSP2, Администратор...

делай так, напишу как у меня робит (почти твое)Dim rgSubconst HKEY_CURRENT_USER = &H80000001Names=""oReg.EnumKey HKEY_CURRENT_USER, strKeyPath, arrSubKeysFor Each subkey In arrSubKeysNames=Names&strKeyPath&subkey&vbCrLf

! Ящик что-то пустой.. Кинь пожалуйста! Разобраться хочу!

Немного поправил все равно работает, учесть только что ветвь HKEY_CURRENT_USER определяется только на локальной машинеstrComputer="localhost"For Each subkey In arrSubKeysNames=Names&strKeyPath&subkey&vbCrLfWScript.Echo Names(Показывает всю софтвару, даже по сети на 98, (конечно если ВМИ там нормальная))

- спасибочки! Все хорошо! Только в oReg.EnumKey первый параметр в обоих строчках должен быть один и тотже! Спасибо всем!

Дали премию за решение проблемы - два мешка бульбы!!!!smaharbA ! Куда выслать твой мешок?

Так куда тушонку, тьфу(проговорился...) - картошку высылать?PS. Коллективный разум - великое дело, однако!

тык ты офицер? Я тоже в запасе танкист.., потом тракторист... потом программист...

ушло, неа, знаешь как в той песне "какой ты нафиг танкист" вот этт про меня, не довелось служить (еще в краснознаменной) балель много, а вот пил/пъю еще больше...

"боец" - я так подчиненного называю (тссс, за глаза)

Послал картошинку! Проверь целостность.

+ проверить бы в картошине еще значения параметров на отрицательные, да и установить их в 0 ,и будет для всех форумистов решение с твоей помощью. Я когда доделаю, опубликую на форуме. Готов перейти на общение по мылу, чтоб не забивать форум. Согласен?

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

аськи нет, к сожалению.. Так что на почту . Шлю очередную штучку, только аккуратней, проверь в ТЕМПЕ сначала.