• Администрация SafeZone приветствует вас на нашем форуме!
    Если вы больше не желаете видеть рекламу при просмотре тем и сообщений - то достаточно просто зарегистрироваться. Для зарегистрированных пользователей реклама не отображается.

[VB6][WMI] Реестр - Как получить перечень подразделов

Dragokas

Very kind Developer
Команда форума
Супер-Модератор
Разработчик
Клуб переводчиков
Сообщения
5,508
Симпатии
5,337
#1
VB.NET:
Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_USER = &H80000001

Public oReg As Object

Private Sub Form_Load()
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    test2
End Sub

Sub test2()
    Dim sKeys()
    Dim sKey        As String
    Dim lret        As Long

    sKey = "" ' имя подраздела

    lret = oReg.EnumKey(HKEY_CURRENT_USER, sKey, sKeys)
   
    Stop
End Sub
По достижении оператора Stop мы получаем в переменной sKeys
массив строк - имена подразделов главного раздела HKCU.

subkeys.png