доступ к реестру на Viste и Windows 7

[ozyabkin]

Подскажите, пожалуйста, как программно изменить права администратора для записи ключей в реестр для записи на Viste и Windows 7
Нашел на С++ код для получения доступа к реестру, перевёл на VB6, однако модуль не работает, в чём причина?
При вызове функции

Код: Выделить всё

dwRes = SetEntriesInAcl(2, ea, 0&, pACL)

возвращаемое значение 87 - неправильный вызов аргументов, переменная pACL не изменяет своего значения.

ссылка на С++ для первоисточника: http://msdn.microsoft.com/en-us/library/aa446595%28v=VS.85%29.aspx

[nikivas]

Вот код:

Код: Выделить всё

Private Sub Command1_Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\ Путь..", "значение"
End Sub

Private Sub Command2_Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\ Путь..."
End Sub