¿Existe alguna class nativa del Framework donde poder manejarse con los vínculos simbólicos para crear vínculos o uniones de directorios?

Sería el equivalente al comando MKLINK de la CMD.

PD: NO APIS, CÓDIGO NATIVO.

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

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!

ESTO ES UN AVISO PARA LOS FREELANCERS

Para los que se sienten con ganas de aventurarse al Freelancing, ni se les ocurra iniciarse en la página de Freelancer.com (o alguno de sus dominios comprados que te redirigen a freelancer.com), es una completa estafa, el 90% de usuarios son todo bots que se quedan con tu dinero, y a parte de eso la banca de Freelancer.com hará todo lo que pueda para que nunca recibas tus pagos.

No más decir que por pura rabia inicié un post con el título (en inglés): "Necesito hacker o agente del FBI para cerrar Freelancer.com", y me contestaron más de 5 bots en menos de 60 minutos diciendo "yo soy la persona que necesitas", "yo soy lo que estás buscando", "hablemos por privado", etc...  ese día es el que decidí abandonar esa página por completo, y menos mal que lo hice a tiempo.

Son unos sinverguenzas, les importa muy poco la seguridad de su página, no banean bots, y para colmo los responsables de Freelancer.com son todavía más Trolls que los Bots, y solo hay que buscar en Google comentarios respecto a la página de Freelancer.com, hay infinitos blogs donde le ponen verde y JAMÁS VERÁN UN COMENTARIO AGRADABLE SOBRE FREELANCER.COM ah no ser que sea de un trabajador de freelancer.com, claro, o de alguien a quien todavía no le hayan timado y que todavia no ha descubierto el pastel...

"la banca de Freelancer.com hará todo lo que pueda para que nunca recibas tus pagos", para empezar tienes que esperar 1 mes entero por su extraña "política" de seguridad para guardarse el dinero durante 30 días por "motivos de seguridad", y al cabo de esos 30 dias si ellos quieren te dicen que eres un bot, te echan de la página, y se quedan el dinero, con esa excusa, así de fácil es para ellos. A mi no me ha llegado a pasar, pero he llegado a leer más de 200 comentarios de afectados por este problema, es real.

Si alguien tiene suerte y el "banco" de Freelancer.com le llega a pagar el dinero, además de que hay que tener una buena suma de dinero para poder reclamar un pago, hay q esperar 1 mes, y luego esperar a que no te suelten la excusa de que eres un Bot... en fin, es algo insólito que una empresa como esa siga estafando.

También leí MÁS DE UN comentario diciendo que es muy peligroso asociar una tarjeta de crédito a Freelancer, si alguien lo ha echo debería quitar sus datos  de la tarjeta inmediatamente en su perfil de Freelancer.com por seguridad, algunas personas dicen que después de pedir la anulación del registro en Freelancer.com le han llegado a robar dinero de su tarjeta de crédito, porque ese dato seguía registrado en el perfil.

y luego está el acoso de spam, es increible, jamás paran de enviarte emails aunque anules las subscripciones y aunque anules tu cuenta en la página, y esto lo sé de buenas, solo quieren volver a engancharte con uno de sus emails porque es una mafia estafadora.

En Freelancer todo está pensado para estafar a los que queremos esforzarnos codeando, no se si esto lo habrán cambiado pero antes no se podía elegir cuando quieres hacer un examen, cuando pagabas un examen lo tenias que hacer en ese preciso momento, si pasa la hora, te jod*s, no te dan opción a elegir cuando hacerlo... vaya, que extraño, ¿no?.

Les da igual todo!

También dicen que nunca hay un ganador en los concursos de Freelancer.com, leí un comentario en un blog de un supuesto ganador de un concurso de diseño en Freelancer.com, este tipo dijo que quedó entre los 3 primeros puestos, ya no recuerdo si el premio era dinero, o que era, pero según lo que dijo este tipo, lo que Freelancer.com hace es eliminar la página del concurso nada más acaba el tiempo límite, y eliminar así cualquier prueba de que hayan ganadores y de que hayan recibido su premio, los premios no se reciben, si reclamas tu premio no te contestan, los concursos también son falsos, una estafa más del servicio de Freelancer.com.

Tengan mucho cuidado con la página de Freelancer.com, están comprando muchos dominios para captar más víctimas, es una estafa, cada dia crecen mas y mas a base de bots estafadores y una banca estafadora, pero un dia recibiran su merecido.

Si quieren mi recomendación de sitios decentes donde empezar a ser un Freelancer y donde no hay peligro alguno de estafa, aquí tienen:
http://www.project4hire.com/index.php?a=account
https://www.guru.com/login.aspx
http://www.getacoder.com/users/login.php

En estos dos últimos sitios hay bots pero es inevitable porque son páginas muy conocidas, pero la cantidad de Bots es minúscula, aquí si que tienen un mínimo de seguridad y piden muchos datos para que nos e puedan registrar los bots, y no se puede comparar con el serviccio de Freelancer.com, quiero decir... estas páginas son de confianza, y te pagan cuando reclamas un pago, no te estafan en ningún sentido como lo hace Freelancer.com:
https://www.odesk.com/login
https://www.elance.com/php/landing/main/login.php

PD: Espero que mi consejo sirva de algo, vigilen de quien se fian... no se fien sólamente porque una página salga en el primer resultado de Google como freelancer.com...

PD2: Siento las mayúsculas, lo he considerado necesario para captar la atención a los avisos más importantes para hacerles saber como son las cosas.

Un saludo

Si el ejemplo del MSDN y otros ejemplos ya los habré intentado mil veces Novlucker

El código de ejemplo funciona, pero a la hora de intentar poner cualquier ejemplo en práctica con una clave creada por Windows Y CON LOS PERMISOS DENEGADOS... no tira ni a la de tres, al intentar abrir la clave siempre salta error de acceso ...incluso aunque primero se cambie el propietario actual de la clave y se cojan los permisos actuales con "GetAccessRights" ...que ni se pueden coger porque la clave no se puede abrir (opensubkey) por que no tiene permisos de lectura, de verdad que ese ejemplo del MSDN sirve para muy poco xD (segúramente yo esté fallando en algo).

un saludo

· No estás usando la sintaxis correcta:

choice /B /C:1234 /N /S Mensaje

http://help.fdos.org/en/hhstndrd/batch/choice.htm

· Los errorlevel son numéricos, no letras.
Por ejemplo, al apretar la "X" será errorlevel "21".


Corrige la sintaxis del comando, elimina toda esta cantidad de condicionales además del goto:

if errorlevel 1 goto 1
if errorlevel 2 goto 2
if errorlevel 3 goto 3
if errorlevel 4 goto 4
if errorlevel 5 goto 5
if errorlevel 6 goto 6
if errorlevel 7 goto 7
if errorlevel 8 goto 8
if errorlevel 9 goto 9
if errorlevel 0 goto 0
if errorlevel a goto a
if errorlevel b goto b
if errorlevel c goto c
if errorlevel d goto d
if errorlevel e goto e
if errorlevel f goto f
if errorlevel g goto g
if errorlevel h goto h
if errorlevel i goto i
if errorlevel z goto z
if errorlevel x goto x
goto lista

...Y simplifícalo por esto:

GOTO :%ERORLEVEL%

Saludos

¿¡ Te puedes creer que me he leido las instrucciones como 10 veces... y no habia leido esa maldita url de descarga !? 
...De todas formas el artículo es del año 2010, es una versión un poco obsoleta .

Ahora me sabe mal el doble esfuero que has hecho jeje, muchas gracias por darte cuenta de eso y por compilarlo NovLucker.

Por fin puedo usar esta lib en x64...

Saludos!

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.

No apruebo el uso de aplicaciones commandline a menos que sea para situaciones complicadas y tediosas como esta...

...Una class para usar SETACL para modificar el propietario de una clave de registro y para modificar los permisos de la clave:

PD: a ver si alguien nos sorprende con un código nativo... 

#Region " SETACL Helper "
 
 
' [ SETACL Helper ]
'
' // By Elektro H@cker
'
'
' INSTRUCTIONS:
' 1. Add the "SETACL.exe" in the project.
'
' Examples :
'
' SETACL.Set_Owner("HKCU\Test", True)
' SETACL.Set_Permission("HKCU\Test\", SETACL.SETACL_Permission.full, False)
 
 
Public Class SETACL
 
    ' <summary>
    ' Gets or sets the SETACL executable path.
    ' </summary>
    Public Shared SETACL_Location As String = ".\SetACL.exe"
 
    ' <summary>
    ' Gets or sets the SETACL logfile filename.
    ' </summary>
    Public Shared SETACL_Logfile As String = ".\SetACL.log"
 
 
    Public Enum SETACL_Permission
 
        ' <summary>
        ' Create link
        ' </summary>
        create_link
 
        ' <summary>
        ' Create subkeys
        ' </summary>
        create_subkey
 
        ' <summary>
        ' Delete
        ' </summary>
        delete
 
        ' <summary>
        ' Enumerate subkeys
        ' </summary>
        enum_subkeys
 
        ' <summary>
        ' Notify
        ' </summary>
        notify
 
        ' <summary>
        ' Query value
        ' </summary>
        query_val
 
        ' <summary>
        ' Read control
        ' </summary>
        read_access
 
        ' <summary>
        ' Set value
        ' </summary>
        set_val
 
        ' <summary>
        ' Write permissions
        ' </summary>
        write_dacl
 
        ' <summary>
        ' Take ownership
        ' </summary>
        write_owner
 
 
        ' <summary>
        ' Read (KEY_ENUMERATE_SUB_KEYS + KEY_EXECUTE + KEY_NOTIFY + KEY_QUERY_VALUE + KEY_READ + READ_CONTROL)
        ' </summary>
        read
 
        ' <summary>
        ' Full access 
        ' (KEY_CREATE_LINK + KEY_CREATE_SUB_KEY +KEY_ENUMERATE_SUB_KEYS + ...
        ' ...KEY_EXECUTE + KEY_NOTIFY + KEY_QUERY_VALUE + KEY_READ + KEY_SET_VALUE + ...
        ' ...KEY_WRITE + READ_CONTROL + WRITE_OWNER + WRITE_DAC + DELETE)
        ' </summary>
        full
 
    End Enum
 
    ' <summary>
    ' Checks if SETACL process is avaliable.
    ' </summary>
    Public Shared Function Is_Avaliable() As Boolean
        Return IO.File.Exists(SETACL_Location)
    End Function
 
    ' <summary>
    ' Takes ownership of a registry key.
    ' </summary>
    Public Shared Sub Set_Owner(ByVal RegKey As String, ByVal Recursive As Boolean, Optional ByVal UserName As String = "%USERNAME%")
 
        If RegKey.EndsWith("\") Then RegKey = RegKey.Substring(0, RegKey.Length - 1)
 
        Dim Recursion As String = "No" : If Recursive Then Recursion = "Yes"
 
        Dim SETACL As New Process(), SETACL_Info As New ProcessStartInfo()
 
        SETACL_Info.FileName = SETACL_Location
        SETACL_Info.Arguments = String.Format("-on ""{0}"" -ot reg -ownr ""n:{1}"" -rec ""{2}"" -actn setowner -silent -ignoreerr -log ""{3}""", RegKey, UserName, Recursion, SETACL_Logfile)
        SETACL_Info.CreateNoWindow = True
        SETACL_Info.UseShellExecute = False
        SETACL.StartInfo = SETACL_Info
        SETACL.Start()
        SETACL.WaitForExit()
 
        If SETACL.ExitCode <> 0 Then
            ' Throw New Exception("Exit code: " & SETACL.ExitCode)
            MsgBox(IO.File.ReadAllText(SETACL_Logfile))
        End If
 
    End Sub
 
    ' <summary>
    ' Sets the user permission of a registry key.
    ' </summary>
    Public Shared Sub Set_Permission(ByVal RegKey As String, ByVal Permission As SETACL_Permission, ByVal Recursive As Boolean, Optional ByVal UserName As String = "%USERNAME%")
 
        If RegKey.EndsWith("\") Then RegKey = RegKey.Substring(0, RegKey.Length - 1)
 
        Dim Recursion As String = "No" : If Recursive Then Recursion = "Yes"
 
        Dim SETACL As New Process(), SETACL_Info As New ProcessStartInfo()
 
        SETACL_Info.FileName = SETACL_Location
        SETACL_Info.Arguments = String.Format("-on ""{0}"" -ot reg -ace ""n:{1};p:{2}"" -rec ""{3}"" -actn ace -silent -ignoreerr -log ""{4}""", RegKey, UserName, Permission, Recursion, SETACL_Logfile)
        SETACL_Info.CreateNoWindow = True
        SETACL_Info.UseShellExecute = False
        SETACL.StartInfo = SETACL_Info
        SETACL.Start()
        SETACL.WaitForExit()
 
        If SETACL.ExitCode <> 0 Then
            ' Throw New Exception("Exit code: " & SETACL.ExitCode)
            MsgBox(IO.File.ReadAllText(SETACL_Logfile))
        End If
 
    End Sub
 
End Class
 
#End Region

Todavía nadie ha podido compilar el proyecto para "anycpu" y "x64"... si hay alguien que quiera colaborar... please.