Как считать заведомо неизвестный ключ реестра в wscript

Помогите плиз!!! Кто знает как считать в wscript(vb6.0) заведомо неизвестные ключи реестра. Например в "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" есть много ключей, но как считать их не зная их имен?
В FileSystemObject есть подобная вещь, можно считать из папки все названия папок и файлов, находящихся в ней. Как сделать это с реестром?

Примечание:
Читаю известный мне по имени ключ "Nomer"
Set Re = CreateObject("WScript.Shell")
ReKey = "HKLM\SOFTWARE\IT\"
Nom = Re.RegRead(ReKey & "Nomer")

Но как прочитать имя и значение каждого ключа в разделе "HKLM\SOFTWARE\IT\"?
С помощью оператора for each:
for each Key in >>>??????<<<<
n=n & Key.Name & chr(13)
next

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.