<# REGISTRY KEY DEFINITIONS #>
 
$RegKeys = @(
	@{Path = "HKCR\*\shell\ShareWithSkype"
	  IsLiteralPath = $true},
	@{Path = "HKCR\PackagedCom\ClassIndex\{776DBC8D-7347-478C-8D71-791E12EF49D8}"
	  IsLiteralPath = $true},
	@{Path = "HKCR\SOFTWARE\Classes\PackagedCom\Package\Microsoft.SkypeApp*\Class\{776DBC8D-7347-478C-8D71-791E12EF49D8}"
	  IsLiteralPath = $false},
	@{Path = "HKLM\SOFTWARE\Classes\PackagedCom\Package\Microsoft.SkypeApp*\Class\{776DBC8D-7347-478C-8D71-791E12EF49D8}"
	  IsLiteralPath = $false}
)
 
<# REGISTRY KEYS DELETION #>
 
foreach ($regKey in $RegKeys) {
	[String]$path = $regKey.Path
	[Boolean]$testPath = if ($regKey.IsLiteralPath) { Test-Path -LiteralPath "Registry::$path" } else { Test-Path "Registry::$path" }
 
	if ($testPath) {
		try {
			Remove-Item -Path "Registry::$path" -Recurse -ErrorAction Stop
			Write-Host "Registry key deleted: $path"
		} catch {
			Write-Error $_.Exception.Message
		}
	} else {
		Write-Warning "Registry key not found: $path"
	}
}
 
<# END #>
 
Write-Host "`nOperation Completed.`n"-BackgroundColor Black -ForegroundColor Green
Write-Host "Press any key to exit..."
$Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown") | Out-Nu
Exit(0)

<# REGISTRY KEY DEFINITIONS #>
 
$RegKeys = @(
    @{Path = "HKCR\*\shell\ShareWithSkype"
      IsLiteralPath = $true},
    @{Path = "HKCR\PackagedCom\ClassIndex\{776DBC8D-7347-478C-8D71-791E12EF49D8}"
      IsLiteralPath = $true},
    @{Path = "HKCR\SOFTWARE\Classes\PackagedCom\Package\Microsoft.SkypeApp*\Class\{776DBC8D-7347-478C-8D71-791E12EF49D8}"
      IsLiteralPath = $false},
    @{Path = "HKLM\SOFTWARE\Classes\PackagedCom\Package\Microsoft.SkypeApp*\Class\{776DBC8D-7347-478C-8D71-791E12EF49D8}"
      IsLiteralPath = $false}
)
 
<# https://stackoverflow.com/a/35843420/1248295 #>
 
function Take-Permissions {
    # Developed for PowerShell v4.0
    # Required Admin privileges
    # Links:
    #   http://shrekpoint.blogspot.ru/2012/08/taking-ownership-of-dcom-registry.html
    #   http://www.remkoweijnen.nl/blog/2012/01/16/take-ownership-of-a-registry-key-in-powershell/
    #   https://powertoe.wordpress.com/2010/08/28/controlling-registry-acl-permissions-with-powershell/
 
    param($rootKey, $key, [System.Security.Principal.SecurityIdentifier]$sid = 'S-1-5-32-545', $recurse = $true)
 
    switch -regex ($rootKey) {
        'HKCU|HKEY_CURRENT_USER'    { $rootKey = 'CurrentUser' }
        'HKLM|HKEY_LOCAL_MACHINE'   { $rootKey = 'LocalMachine' }
        'HKCR|HKEY_CLASSES_ROOT'    { $rootKey = 'ClassesRoot' }
        'HKCC|HKEY_CURRENT_CONFIG'  { $rootKey = 'CurrentConfig' }
        'HKU|HKEY_USERS'            { $rootKey = 'Users' }
    }
 
    ### Step 1 - escalate current process's privilege
    # get SeTakeOwnership, SeBackup and SeRestore privileges before executes next lines, script needs Admin privilege
    $import = '[DllImport("ntdll.dll")] public static extern int RtlAdjustPrivilege(ulong a, bool b, bool c, ref bool d);'
    $ntdll = Add-Type -Member $import -Name NtDll -PassThru
    $privileges = @{ SeTakeOwnership = 9; SeBackup =  17; SeRestore = 18 }
    foreach ($i in $privileges.Values) {
        $null = $ntdll::RtlAdjustPrivilege($i, 1, 0, [ref]0)
    }
 
    function Take-KeyPermissions {
        param($rootKey, $key, $sid, $recurse, $recurseLevel = 0)
 
        ### Step 2 - get ownerships of key - it works only for current key
        $regKey = [Microsoft.Win32.Registry]::$rootKey.OpenSubKey($key, 'ReadWriteSubTree', 'TakeOwnership')
        $acl = New-Object System.Security.AccessControl.RegistrySecurity
        $acl.SetOwner($sid)
        $regKey.SetAccessControl($acl)
 
        ### Step 3 - enable inheritance of permissions (not ownership) for current key from parent
        $acl.SetAccessRuleProtection($false, $false)
        $regKey.SetAccessControl($acl)
 
        ### Step 4 - only for top-level key, change permissions for current key and propagate it for subkeys
        # to enable propagations for subkeys, it needs to execute Steps 2-3 for each subkey (Step 5)
        if ($recurseLevel -eq 0) {
            $regKey = $regKey.OpenSubKey('', 'ReadWriteSubTree', 'ChangePermissions')
            $rule = New-Object System.Security.AccessControl.RegistryAccessRule($sid, 'FullControl', 'ContainerInherit', 'None', 'Allow')
            $acl.ResetAccessRule($rule)
            $regKey.SetAccessControl($acl)
        }
 
        ### Step 5 - recursively repeat steps 2-5 for subkeys
        if ($recurse) {
            foreach($subKey in $regKey.OpenSubKey('').GetSubKeyNames()) {
                Take-KeyPermissions $rootKey ($key+'\'+$subKey) $sid $recurse ($recurseLevel+1)
            }
        }
    }
 
    Take-KeyPermissions $rootKey $key $sid $recurse
}
 
<# REGISTRY KEYS DELETION #>
 
$currentIdentity = [System.Security.Principal.WindowsIdentity]::GetCurrent()
$sid = $currentIdentity.User.Translate([System.Security.Principal.SecurityIdentifier])
 
foreach ($regKey in $RegKeys) {
    [String]$path = $regKey.Path
    [String]$root = $path -replace '^(.*?)\\.*', '$1'
    [String]$key = $path -replace "$root\\", ""
    [Boolean]$isLiteralPath = $regKey.IsLiteralPath
 
    if (-not $isLiteralPath) {
        $key = $key.Substring(0, $key.LastIndexOf('*'))
        $key = $key.Substring(0, $key.LastIndexOf('\'))
    }
 
    Write-Host "Taking registry permissions for: $root\$key"
    try { Take-Permissions $root $key $sid $true } catch { }
 
    [Boolean]$testPath = if ($isLiteralPath) { Test-Path -LiteralPath "Registry::$path" } else { Test-Path "Registry::$path" }
    if ($testPath) {
        try {
            if ($isLiteralPath) {
                Remove-Item -LiteralPath "Registry::$path" -Recurse -ErrorAction Stop
            } else {
                Remove-Item -Path "Registry::$path" -Recurse -ErrorAction Stop
            }
            Write-Host "Registry key deleted: $path"
        } catch {
            Write-Error $_.Exception.Message
        }
    } else {
        Write-Warning "Registry key not found: $path"
    }
    Write-Host ""
}
 
<# END #>
 
Write-Host "Operation Completed.`n"-BackgroundColor Black -ForegroundColor Green
Write-Host "Press any key to exit..."
$Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown") | Out-Nu
Exit(0)

net user administrador /active:yes

• https://helgeklein.com/download/

@ECHO OFF
 
Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PackagedCom\Package"
 
".\SETACL.exe" -on "%RegKey%" -ot "reg" ^
               -actn "setowner" -ownr "n:%UserName%" -rec "Yes" ^
               -actn "ace" -ace "n:%UserName%;p:full;m:Grant" -rec "Yes" 
 
PAUSE & EXIT

Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PackagedCom\Package"

Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PackagedCom"

Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE\Classes"

Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE"

Set "RegKey=HKEY_LOCAL_MACHINE"