MyTetra Share
Делитесь знаниями!
[VB6][WMI] Реестр - Как получить перечень подразделов
30.12.2017
21:34
Текстовые метки: Реестр
Раздел: VBScript

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.

 

 

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования