Estoy intentando acceder a esta clave en concreto y añadir un valor.

Por lo que se ve es una zona donde no puedes toquetear tan facilmente. El problema no es de requireAdministrator. He buscado codes por internet y he probado con este.

Pero no me deja  , alguna idea?

Saludos!

edito: Este codigo parece mas funcional pero tampoco sirve

Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
 
        Dim rs As New RegistrySecurity()
 
        rs.AddAccessRule(New RegistryAccessRule(user, _
                        RegistryRights.WriteKey Or RegistryRights.SetValue, _
                        InheritanceFlags.None, _
                        PropagationFlags.None, _
                        AccessControlType.Allow))
 
        ' Create the example key with registry security.
        Dim rk As RegistryKey
        rk = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Internet Explorer\Approved Extensions", RegistryKeyPermissionCheck.ReadWriteSubTree, rs)
 
        If rk IsNot Nothing Then rk.Close()

El problema esta en los permisos de escritura del regedit, los puedo asignar manualmente pero eso no solucionaria mi problema 

A pesar de tus esfuerzos el segundo código a mi no me funciona, me da el mismo error que comentas en el primer código.

He probado decenas de códigos, he estudiado un poco sobre RegistryKeyPermissionCheck ,RegistryRights ,SetAccessControl ,RegistryAccessRule , y RegistryKey

Incluso he probado un código koreano!... pero nada ha valido la pena, parece algo de locos intentar modificar los permisos de una clave en .NET, Google no tiene la respuesta.

A mi me habría gustado solucionar tu problema porque también me serviría para mi en un futuro, pero parece muy dificil conseguirlo, así que quizás quieras mirar esta alternativa que hice:
-> http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1872406#msg1872406

Saludos.

He vuelto a testearlo, y ahora me siento identificado con tu segundo comentario:

Me parece muy estraño pero ahora si que me funciona,
ayer hice un copy/paste de tu code pero no me funcionó ni con tu clave ni con alguna otra que yo he probé.

En fin... disculpas, aunque te aseguro que ayer lo probé muchas veces tu último código sin éxito alguno...
un saludo!

Una cosa, estaba haciendo ahora mismo una función genérica de tu code:

    ''' <summary>
    ''' Modify the User permissions of a registry key.
    ''' </summary>
    Public Shared Sub Set_UserAccess_Key(ByVal RegKey As String, ByVal RegUserAccess As RegistryRights, ByVal AccessType As AccessControlType, Optional ByVal UserName As String = Nothing)
 
 
        Dim user As String = UserName
        Dim RootKey As RegistryKey = Get_Root_Key(RegKey)
        Dim KeyPath As String = Get_Key_Path(RegKey)
 
        If UserName Is Nothing Then user = Environment.UserDomainName & "\" & Environment.UserName
 
        Dim RS As New RegistrySecurity()
        Dim RK As RegistryKey = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
 
        RS.AddAccessRule(New RegistryAccessRule(user, RegUserAccess, InheritanceFlags.None, PropagationFlags.None, AccessType))
        RK.SetAccessControl(RS)
        RK = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegUserAccess)
        RK.SetAccessControl(RS)
 
 
    End Sub

Y hay un pequeño problema :-/

Si a la clave le quitas los permisos de control total entonces luego con tu code no se le pueden modificar los permisos, da error al leer la clave como yo decía en un principio, aquí:

Dim RK As RegistryKey = RootKey.OpenSubKey(KeyPath, RegistryKeyPermissionCheck.ReadWriteSubTree, RegistryRights.ChangePermissions Or RegistryRights.ReadKey)

PD: Lo he probado también con tu code de arriba sin mis modificaciones.

Esto significa que si el usuario tiene denegado el permiso de control total en la clave entonces tu code no funcionará

Un saludo

Mire otra vez más a fondo la cuestión y efectivamente mi code no funciona a 'pelo'. Probé el tuyo y le he econtrado un fallo.

El los argumentos que le pasas al SETACL.exe, le pasas como usuario %USERNAME%, pero eso no funciona. Le tienes que pasar también el nombre de dominio, si no le da permisos a un usuario llamado BUITIN que genera la aplicacion de gratis.

Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
SETACL_Info.Arguments = String.Format("-on ""{0}"" -ot reg -ace ""n:{1};p:{2}"" -rec ""{3}"" -actn ace -silent -ignoreerr -log ""{4}""", RegKey, user, Permission, Recursion, SETACL_Logfile)

Por lo demás todo bien.
Saludos.