Ralf

Ralf

Imports Microsoft.Win32
Imports System.Security.Principal
Imports System.Security.AccessControl
 
Dim keyName As String = "Software\Test"
Dim domainName As String = ""
Dim userName As String = "Test"
 
Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey(keyName, True)
Dim regSecurity As RegistrySecurity = key.GetAccessControl()
 
Dim ident As New NTAccount(domainName, userName)
regSecurity.SetOwner(ident)
 
key.SetAccessControl(regSecurity)

Ralf

Ralf

Ralf

Ralf

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Ralf

Ralf

Sub GiveFullAccess(ByVal key As RegistryKey, ByVal domain As String, ByVal _
  userName As String)
  Dim regSecurity As RegistrySecurity = key.GetAccessControl()
 
  Dim account As New NTAccount(domain, userName)
 
  Dim fullAccessRule As New RegistryAccessRule(account, _
    RegistryRights.FullControl, AccessControlType.Allow)
  regSecurity.AddAccessRule(fullAccessRule)
 
  key.SetAccessControl(regSecurity)
End Sub

Ralf

ByVal key As RegistryKey

Ralf