JavaScript отключён. Чтобы полноценно использовать наш сайт, включите JavaScript в своём браузере.

Ответить в теме

Сообщение: [QUOTE="Dragokas, post: 183750, member: 6966"] [code=vbnet]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[/code] По достижении оператора Stop мы получаем в переменной sKeys массив строк - имена подразделов главного раздела HKCU. [ATTACH=full]18294[/ATTACH] [/QUOTE]