últimos mensajes de: Eleкtro

Mostrar Mensajes
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 1236

51	Programación / Scripting / Re: Archivo bat para borrar una entrada de registro	en: 19 Marzo 2024, 08:17 am
Cita de: zelarra en 19 Marzo 2024, 07:13 am eso ya me da más respeto, así es que lo voy a dejar así Déjame decirte que por el simple hecho de ejecutar el batch-script que te mostré (tal y como está escrito, sin modificarlo) en mi último comentario con el programa setacl.exe que te indiqué, no va a pasar nada malo en tu PC. Esa advertencia en color rojo tengo que hacerla por pura formalidad más que por otra cosa... Esa advertencia la tengo que poner por que en caso de que modifiques los permisos, de forma recursiva, de toda la rama "HKEY_LOCAL_MACHINE\SOFTWARE", pues, a ver, en principio no tiene por que ocurrir nada, pero siempre están los escenarios impredecibles con configuraciones específicas que acabasen provocando que ciertas aplicaciones instaladas para todos los usuarios dejasen de funcionar correctamente y, en caso de que modifiques los permisos, de forma recursiva, de toda la raíz "HKLM", pues, lo mismo, en principio no tiene por que ocurrir nada, pero siempre están los escenarios impredecibles con configuraciones específicas. En fin. En caso de que no necesites automatizar esta tarea de borrar las claves del registro, simplemente considera utilizar el programa setacl.exe para obtener permisos de usuario sobre la clave de registro que te está dando error, y así lo solucionarás. También puedes usar 'SetACL Studio', pero te indiqué el otro programa por línea de comandos para que pudieras automatizar la tarea utilizado un script. En cualquier caso, lo que prefieras hacer o no hacer es decisión tuya, claro está. Espero haberte podido ayudar en algo. Hasta la próxima.

52	Foros Generales / Sugerencias y dudas sobre el Foro / Re: He publicado catorce hilos en el lugar incorrecto y de forma absurda...	en: 19 Marzo 2024, 01:44 am
Gracias por la ayuda y la rapidez, todo poderoso Sayan. Un saludo a todos.

Programación / Scripting / Re: [APORTE] [PowerShell] RAR.exe | Multi-Compression Test Tool (Para Directorios)

en: 19 Marzo 2024, 01:42 am

Comparto una versión actualizada del script. Las modificaciones se han basado en perfeccionar pequeños detalles y mejorar bastante la forma en que se compara el tamaño de los archivos ($toleranceSizeDiff).

Código

<#
===========================================================================================
|                                                                                         |
|                                        Variables                                        |
|                                                                                         |
===========================================================================================
#>
 
$rarExecutablePath = "${env:ProgramFiles}\WinRAR\rar.exe"
$dictionarySizesMb = @(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048)
$toleranceSizeDiff = 500kb
$keepOnlySmallestRarFile  = $true
$sendRarFilesToRecycleBin = $false
 
$compressedFileTypesArchive = @(
    "7z" , "arc", "bz2" , "bzip", "bzip2",
    "gz" , "gz2", "gza" , "gzi" , "gzip" ,
    "lha", "lz" , "lz4" , "lzh" , "lzma" ,
    "rar", "sfx", "tgz" , "tlz" , "tlzma",
    "uha", "zip", "zipx", "zpaq"
)
 
$compressedFileTypesAudio = @(
    "aac", "ac3", "fla","flac",
    "m4a", "mp3", "ogg", "ogm",
    "usm", "wma"
)
 
$compressedFileTypesVideo = @(
    "asf", "avc", "avi" , "bik" , "bk2" , "f4v" , "flv" , 
    "m1v", "m2t", "m2ts", "m2v" , "m4v" , "mpv4", 
    "mkv", "mov", "mp4" , "mpeg", "mpg" , "mts" , 
    "qt" , "ts" , "vob" , "vp6" , "webm", "wmv"
)
 
$compressedFileTypesOther = @(
    "avif", "jpeg", "jpg" , "gif" , "pdf",
    "pam" , "paq6", "paq7", "paq8", 
    "par" , "par2", "wad"
)
 
 
[string]$fileTypesToKeepUncompressed = (
    $compressedFileTypesArchive + 
    $compressedFileTypesAudio + 
    $compressedFileTypesVideo + 
    $compressedFileTypesOther
) -join ';'
 
<#
===========================================================================================
|                                                                                         |
|                    rar.exe commands (only those used in this script)                    |
|                                                                                         |
===========================================================================================
 
<Commands>
  a             Add files to archive
 
<Switches>
  -am[s,r]       Archive name and time [save, restore]
  -c-            Disable comments show
  -cfg-          Ignore configuration file and RAR environment variable.
  -dh            Open shared files
  -ep1           Exclude base directory from names
  -ht[b|c]       Select hash type [BLAKE2,CRC32] for file checksum
  -id[c,d,n,p,q] Display or disable messages
  -ilog[name]    Log errors to file
  -isnd[-]       Control notification sounds
  -m<0..5>       Set compression level (0-store...3-default...5-maximal)
  -ma[4|5]       Specify a version of archiving format
  -md<n>[k,m,g]  Dictionary size in KB, MB or GB
  -ms[list]      Specify file types to store.
  -o[+|-]        Set the overwrite mode
  -oc            Set NTFS Compressed attribute.
  -oh            Save hard links as the link instead of the file
  -oi[0-4][:min] Save identical files as references
  -ol[a]         Process symbolic links as the link [absolute paths]
  -oni           Allow potentially incompatible names
  -qo[-|+]       Add quick open information [none|force]
  -r             Recurse subdirectories
  -ri<P>[:<S>]   Set priority (0-default,1-min..15-max) and sleep time in ms
  -s-            Disable solid archiving
  -t             Test files after archiving
  -tk            Keep original archive time
  -tl            Set archive time to newest file
  -ts[m,c,a,p]   Save or restore time (modification, creation, access, preserve)
  -u             Update files
  -w<path>       Assign work directory
#>
 
<#
===========================================================================================
|                                                                                         |
|                                        .NET Code                                        |
|                                                                                         |
===========================================================================================
#>
 
Add-Type -TypeDefinition @"
using System;
using System.Runtime.InteropServices;
 
public class Win32Functions {
    [DllImport("Shlwapi.dll", CharSet = CharSet.Unicode)]
    public static extern long StrFormatByteSizeW(long fileSize, System.Text.StringBuilder buffer, int bufferSize);
}
"@
 
<#
===========================================================================================
|                                                                                         |
|                                    Functions                                            |
|                                                                                         |
===========================================================================================
#>
function Format-FileSize {
    param(
        [long]$fileSize
    )
    $buffer = New-Object System.Text.StringBuilder 260
    [Win32Functions]::StrFormatByteSizeW($fileSize, $buffer, $buffer.Capacity) | Out-Null
    return $buffer.ToString()
}
 
function Show-WelcomeScreen {
    Clear-Host
    Write-Host ""
    Write-Host " $($host.ui.RawUI.WindowTitle)"
    Write-Host " +==========================================================+"
    Write-Host " |                                                          |"
    Write-Host " | This script will use RAR.exe to compress each directory  |"
    Write-Host " | in the current working directory individually, each      |"
    Write-Host " | using different dictionary sizes, with max. compression, |"
    Write-Host " | generating this way multiple RAR files for evaluating    |"
    Write-Host " | compression rates on these dictionary sizes.             |"
    Write-Host " |                                                          |"
    Write-Host " +==========================================================+"
    Write-Host ""
    Write-Host " Script Settings            " -ForegroundColor DarkGray
    Write-Host " ===========================" -ForegroundColor DarkGray
    Write-Host " RAR Executable Path: $([System.IO.Path]::GetFullPath($rarExecutablePath))" -ForegroundColor Gray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Dictionary Sizes (Megabyte): $($dictionarySizesMb -join ', ')" -ForegroundColor Gray
    Write-Host " The script will create a RAR archive for each specified dictionary size." -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " File Types To Keep Uncompressed: `$keepCompressedFileTypesUncompressed" -ForegroundColor Gray
    Write-Host " The script will instruct RAR to don't compress the specified known compressed file types." -ForegroundColor DarkGray
    Write-Host " (See `$keepCompressedFileTypesUncompressed variable definition to manage the file types)" -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Tolerance File Size Difference: $(Format-FileSize -fileSize $toleranceSizeDiff)" -ForegroundColor Gray
    Write-Host " Any newly created RAR file whose file size compared to previously   " -ForegroundColor DarkGray
    Write-Host " created RAR files is within the specified tolerance value, it will be deleted." -ForegroundColor DarkGray
    Write-Host " For example, if `$toleranceSizeDiff value is 1MB:" -ForegroundColor DarkGray
    Write-Host " If a created RAR file of 32 MB dict. size has a file size of 100 MB," -ForegroundColor DarkGray
    Write-Host " and then a newly created RAR file of 64 MB dict. size has a file size of 99 MB, " -ForegroundColor DarkGray
    Write-Host " the RAR file of 64 MB dict. size will be deleted because it only differs in 1MB or less." -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Keep only smallest RAR file: $keepOnlySmallestRarFile" -ForegroundColor Gray
    Write-Host " If True, the script will delete any newly created RAR file " -ForegroundColor DarkGray
    Write-Host " whose file size is bigger than previously created RAR files." -ForegroundColor DarkGray
    Write-Host " Note: it takes into account the specified `$toleranceSizeDiff value." -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Send RAR files to recycle bin: $sendRarFilesToRecycleBin" -ForegroundColor Gray
    Write-Host " If True, the script will send RAR files to recycle bin instead of permanently deleting them." -ForegroundColor DarkGray
    Write-Host ""
}
 
function Confirm-Continue {
    Write-Host " Press 'Y' key to continue or 'N' to exit."
    Write-Host ""
    Write-Host " -Continue? (Y/N)"
    do {
        $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
        $char = $key.Character.ToString().ToUpper()
        if ($char -ne "Y" -and $char -ne "N") {
            [console]::beep(1500, 500)
        }
    } while ($char -ne "Y" -and $char -ne "N")
    if ($char -eq "N") {Exit(1)} else {Clear-Host}
}
 
function Compress-Files {
    Add-Type -AssemblyName Microsoft.VisualBasic
 
    $dictionarySizesMb = $dictionarySizesMb | Sort-Object
 
    # Partir y formatear la cadena de file types para acomodarlo a la linea de argumentos de rar.exe
    if (-not [String]::IsNullOrEmpty($fileTypesToKeepUncompressed)) {
        $fileTypeTokens = $fileTypesToKeepUncompressed -split ';'
        $fileTypesArgumentLines = @()
        for ($i = 0; $i -lt $fileTypeTokens.Count; $i += 20) {
            $fileTypesArgumentLines += "-ms" + ($fileTypeTokens[$i..($i + 19)] -join ';') + [Environment]::NewLine
        }
        if ($fileTypesArgumentLines.Count -gt 0) {
            $fileTypesArgumentLines[-1] = $fileTypesArgumentLines[-1] -replace [Environment]::NewLine, ''
        }
    } else {
        $fileTypesArgumentLines = "-ms "
    }
 
    foreach ($dir in Get-ChildItem -LiteralPath "$PSScriptRoot" -Directory) {
 
        $dirSizeBytes = (Get-ChildItem -LiteralPath "$($dir.FullName)" -Recurse | Measure-Object -Property Length -sum).Sum
 
        # Keeps track of created rar files by rar.exe
        $createdRarFiles = New-Object System.Collections.Generic.List[System.IO.FileInfo]
 
        foreach ($size in $dictionarySizesMb) {
 
            if (($size -ne $dictionarySizesMb[0]) -and ($dirSizeBytes * 4) -le ($size * 1MB)) {
                $formattedDirSize = Format-FileSize -fileSize $dirSizeBytes
                Write-Host "Ignoring compression with too big dictionary size of $size mb for a $formattedDirSize directory: `"$($dir.FullName)`"..." -ForegroundColor Yellow
                continue
            }
 
            $outputRarFilePath   = "$($dir.FullName)_$($size)mb.rar"
            $errorLogFilePath = "$($dir.FullName)_$($size)mb_error.log"
 
            $arguments = @(
                " a -u -ams -c- -cfg- -dh -ep1 -htb -idcdn -isnd- -iver -m5 -ma5 -md$($size)m",
                " -o+ -oc -oh -oi2 -ol -oni -qo+ -r -ri0:0 -s- -t -tk -tl -tsmca+",
                " $fileTypesArgumentLines",
                " -x`"*\$($MyInvocation.MyCommand.Name)`"",
                " -w`"$($env:TEMP)`"",
                " -ilog`"$errorLogFilePath`"",
                " -- `"$outputRarFilePath`"",
                " -- `"$($dir.FullName)\*`""
            )
 
            Write-Host "Compressing directory with $size mb dictionary size: `"$($dir.Name)`"..."
            #Write-Host ""
            #Write-Host "rar.exe arguments:" -ForegroundColor DarkGray
            #Write-Host ($arguments -join [Environment]::NewLine) -ForegroundColor DarkGray
 
            $previousForegroundColor = $host.UI.RawUI.ForegroundColor
            $host.UI.RawUI.ForegroundColor = "DarkGray"
            $psi = New-Object System.Diagnostics.ProcessStartInfo
            $psi.FileName = $rarExecutablePath
            $psi.Arguments = $arguments -join ' '
            $psi.RedirectStandardOutput = $false
            $psi.UseShellExecute = $false
            $psi.CreateNoWindow = $false
 
            $process = [System.Diagnostics.Process]::Start($psi)
            $process.WaitForExit()
            $host.UI.RawUI.ForegroundColor = $previousForegroundColor
 
            $outputRarFile = New-Object System.IO.FileInfo($outputRarFilePath)
            $formattedOutputRarFileSize = Format-FileSize -fileSize $outputRarFile.Length
            Write-Host ""
            Write-Host "Created rar with file name: $($outputRarFile.Name) ($formattedOutputRarFileSize) ($($outputRarFile.Length) bytes)" -ForegroundColor DarkGreen
 
            if ($toleranceSizeDiff -ne $null) {
                if ($createdRarFiles.Count -ne 0) {
                    $outputRarFileSize = $outputRarFile.Length
                    $formattedOutputRarFileSize = Format-FileSize -fileSize $outputRarFileSize
                    $formattedToleranceFileSize = Format-FileSize -fileSize $toleranceSizeDiff
 
                    foreach ($createdRarFile in $createdRarFiles) {
                        if ($createdRarFile.Exists) {
                            $createdRarFileSize = $createdRarFile.Length
                            $formattedCreatedRarFileSize = Format-FileSize -fileSize $createdRarFileSize
                            $diffSize = [Math]::Abs($createdRarFileSize - $outputRarFileSize)
                            $formattedDiffSize = Format-FileSize -fileSize $diffSize
 
                            if (($outputRarFileSize + $toleranceSizeDiff) -ge $createdRarFileSize) {
                                Write-Host ""
                                Write-Host "Size of this created RAR file ($formattedOutputRarFileSize) ($outputRarFileSize bytes) is within the $formattedToleranceFileSize tolerance difference" -ForegroundColor Yellow
                                Write-Host "than a previously created RAR file of $formattedCreatedRarFileSize ($createdRarFileSize bytes) with smaller dictionary size..." -ForegroundColor Yellow
                                Write-Host "Size of this created RAR file only differs by $formattedDiffSize ($diffSize bytes)." -ForegroundColor Yellow
                                Write-Host "Deleting file: `"$($outputRarFile.Name)`"..." -ForegroundColor Yellow
                                if ($sendRarFilesToRecycleBin) {
                                    [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($outputRarFile.FullName, 'OnlyErrorDialogs', 'SendToRecycleBin')
                                } else {
                                    [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($outputRarFile.FullName, 'OnlyErrorDialogs', 'DeletePermanently')
                                }
                                Write-Host "Deletion completed." -ForegroundColor Yellow
                                break
                            } 
                        }
                    }
                }
            }
 
            if (Test-Path -LiteralPath $outputRarFile.FullName -PathType Leaf) {
                $createdRarFiles.Add($outputRarFile)
            }
            Write-Host ""
        }
 
        if ($keepOnlySmallestRarFile -and $createdRarFiles.Count -gt 0) {
            $existingFiles = $createdRarFiles | Where-Object { $_.Exists }
            if ($existingFiles.Count -gt 0) {
                Write-Host "`$keepOnlySmallestRarFile variable is `$True. Comparing file sizes of created RAR files..." -ForegroundColor Yellow
                Write-Host ""
                $smallestFile = $existingFiles | Sort-Object Length | Select-Object -First 1
                foreach ($file in $existingFiles) {
                    if ($file -ne $smallestFile) {
                        $formattedFileSize = Format-FileSize -fileSize $file.Length
                        Write-Host "Deleting file: `"$($file.Name)`" ($formattedFileSize)..." -ForegroundColor Yellow
                        if ($sendRarFilesToRecycleBin) {
                            [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($file.FullName, 'OnlyErrorDialogs', 'SendToRecycleBin')
                        } else {
                            [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($file.FullName, 'OnlyErrorDialogs', 'DeletePermanently')
                        }
                        Write-Host "Deletion completed." -ForegroundColor Yellow
                        Write-Host ""
                    }
                }
                $formattedSmallestFileSize = Format-FileSize -fileSize $smallestFile.Length
                Write-Host "Smallest file kept: $($smallestFile.Name) ($formattedSmallestFileSize)" -ForegroundColor Green
                Write-Host ""
            }
        }
 
    }
}
 
function Show-GoodbyeScreen {
    Write-Host "Operation Completed!" -BackgroundColor Black -ForegroundColor Green
    Write-Host ""
    Write-Host "Press any key to exit..."
    $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown")
    Exit(0)
}
 
<#
===========================================================================================
|                                                                                         |
|                                         Main                                            |
|                                                                                         |
===========================================================================================
#>
 
[System.Console]::Title = "RAR Multi-Compression Test Tool (Directories) - by Elektro"
#[System.Console]::SetWindowSize(150, 45)
[CultureInfo]::CurrentUICulture = "en-US"
 
try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { }
 
Show-WelcomeScreen
Confirm-Continue
Compress-Files
Show-GoodbyeScreen

Programación / Scripting / Re: [APORTE] [PowerShell] RAR.exe | Multi-Compression Test Tool (Para Archivos)

en: 19 Marzo 2024, 01:42 am

Código

<#
===========================================================================================
|                                                                                         |
|                                        Variables                                        |
|                                                                                         |
===========================================================================================
#>
 
$rarExecutablePath = "${env:ProgramFiles}\WinRAR\rar.exe"
$dictionarySizesMb = @(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048)
$toleranceSizeDiff = 100kb
$keepOnlySmallestRarFile  = $true
$sendRarFilesToRecycleBin = $false
 
$compressedFileTypesArchive = @(
    "7z" , "arc", "bz2" , "bzip", "bzip2",
    "gz" , "gz2", "gza" , "gzi" , "gzip" ,
    "lha", "lz" , "lz4" , "lzh" , "lzma" ,
    "rar", "sfx", "tgz" , "tlz" , "tlzma",
    "uha", "zip", "zipx", "zpaq"
)
 
$compressedFileTypesAudio = @(
    "aac", "ac3", "fla","flac",
    "m4a", "mp3", "ogg", "ogm",
    "usm", "wma"
)
 
$compressedFileTypesVideo = @(
    "asf", "avc", "avi" , "bik" , "bk2" , "f4v" , "flv" , 
    "m1v", "m2t", "m2ts", "m2v" , "m4v" , "mpv4", 
    "mkv", "mov", "mp4" , "mpeg", "mpg" , "mts" , 
    "qt" , "ts" , "vob" , "vp6" , "webm", "wmv"
)
 
$compressedFileTypesOther = @(
    "avif", "jpeg", "jpg" , "gif" , "pdf",
    "pam" , "paq6", "paq7", "paq8", 
    "par" , "par2", "wad"
)
 
 
[string]$fileTypesToKeepUncompressed = (
    $compressedFileTypesArchive + 
    $compressedFileTypesAudio + 
    $compressedFileTypesVideo + 
    $compressedFileTypesOther
) -join ';'
 
<#
===========================================================================================
|                                                                                         |
|                    rar.exe commands (only those used in this script)                    |
|                                                                                         |
===========================================================================================
 
<Commands>
  a             Add files to archive
 
<Switches>
  -am[s,r]       Archive name and time [save, restore]
  -c-            Disable comments show
  -cfg-          Ignore configuration file and RAR environment variable.
  -dh            Open shared files
  -ep1           Exclude base directory from names
  -ht[b|c]       Select hash type [BLAKE2,CRC32] for file checksum
  -id[c,d,n,p,q] Display or disable messages
  -ilog[name]    Log errors to file
  -isnd[-]       Control notification sounds
  -m<0..5>       Set compression level (0-store...3-default...5-maximal)
  -ma[4|5]       Specify a version of archiving format
  -md<n>[k,m,g]  Dictionary size in KB, MB or GB
  -ms[list]      Specify file types to store.
  -o[+|-]        Set the overwrite mode
  -oc            Set NTFS Compressed attribute.
  -oh            Save hard links as the link instead of the file
  -oi[0-4][:min] Save identical files as references
  -ol[a]         Process symbolic links as the link [absolute paths]
  -oni           Allow potentially incompatible names
  -qo[-|+]       Add quick open information [none|force]
  -r             Recurse subdirectories
  -ri<P>[:<S>]   Set priority (0-default,1-min..15-max) and sleep time in ms
  -s-            Disable solid archiving
  -t             Test files after archiving
  -tk            Keep original archive time
  -tl            Set archive time to newest file
  -ts[m,c,a,p]   Save or restore time (modification, creation, access, preserve)
  -u             Update files
  -w<path>       Assign work directory
#>
 
<#
===========================================================================================
|                                                                                         |
|                                        .NET Code                                        |
|                                                                                         |
===========================================================================================
#>
 
Add-Type -TypeDefinition @"
using System;
using System.Runtime.InteropServices;
 
public class Win32Functions {
    [DllImport("Shlwapi.dll", CharSet = CharSet.Unicode)]
    public static extern long StrFormatByteSizeW(long fileSize, System.Text.StringBuilder buffer, int bufferSize);
}
"@
 
<#
===========================================================================================
|                                                                                         |
|                                    Functions                                            |
|                                                                                         |
===========================================================================================
#>
function Format-FileSize {
    param(
        [long]$fileSize
    )
    $buffer = New-Object System.Text.StringBuilder 260
    [Win32Functions]::StrFormatByteSizeW($fileSize, $buffer, $buffer.Capacity) | Out-Null
    return $buffer.ToString()
}
 
function Show-WelcomeScreen {
    Clear-Host
    Write-Host ""
    Write-Host " $($host.ui.RawUI.WindowTitle)"
    Write-Host " +========================================================+"
    Write-Host " |                                                        |"
    Write-Host " | This script will use RAR.exe to compress each file in  |"
    Write-Host " | the current working directory individually, each using |"
    Write-Host " | different dictionary sizes, with max. compression,     |"
    Write-Host " | generating this way multiple RAR files for evaluating  |"
    Write-Host " | compression rates on these dictionary sizes.           |"
    Write-Host " |                                                        |"
    Write-Host " +=========================================================+"
    Write-Host ""
    Write-Host " Script Settings            " -ForegroundColor DarkGray
    Write-Host " ===========================" -ForegroundColor DarkGray
    Write-Host " RAR Executable Path: $([System.IO.Path]::GetFullPath($rarExecutablePath))" -ForegroundColor Gray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Dictionary Sizes (Megabyte): $($dictionarySizesMb -join ', ')" -ForegroundColor Gray
    Write-Host " The script will create a RAR archive for each specified dictionary size." -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " File Types To Keep Uncompressed: `$keepCompressedFileTypesUncompressed" -ForegroundColor Gray
    Write-Host " The script will instruct RAR to don't compress the specified known compressed file types." -ForegroundColor DarkGray
    Write-Host " (See `$keepCompressedFileTypesUncompressed variable definition to manage the file types)" -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Tolerance File Size Difference: $(Format-FileSize -fileSize $toleranceSizeDiff)" -ForegroundColor Gray
    Write-Host " Any newly created RAR file whose file size compared to previously   " -ForegroundColor DarkGray
    Write-Host " created RAR files is within the specified tolerance value, it will be deleted." -ForegroundColor DarkGray
    Write-Host " For example, if `$toleranceSizeDiff value is 1MB:" -ForegroundColor DarkGray
    Write-Host " If a created RAR file of 32 MB dict. size has a file size of 100 MB," -ForegroundColor DarkGray
    Write-Host " and then a newly created RAR file of 64 MB dict. size has a file size of 99 MB, " -ForegroundColor DarkGray
    Write-Host " the RAR file of 64 MB dict. size will be deleted because it only differs in 1MB or less." -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Keep only smallest RAR file: $keepOnlySmallestRarFile" -ForegroundColor Gray
    Write-Host " If True, the script will delete any newly created RAR file " -ForegroundColor DarkGray
    Write-Host " whose file size is bigger than previously created RAR files." -ForegroundColor DarkGray
    Write-Host " Note: it takes into account the specified `$toleranceSizeDiff value." -ForegroundColor DarkGray
    Write-Host "" -ForegroundColor DarkGray
    Write-Host " Send RAR files to recycle bin: $sendRarFilesToRecycleBin" -ForegroundColor Gray
    Write-Host " If True, the script will send RAR files to recycle bin instead of permanently deleting them." -ForegroundColor DarkGray
    Write-Host ""
}
 
function Confirm-Continue {
    Write-Host " Press 'Y' key to continue or 'N' to exit."
    Write-Host ""
    Write-Host " -Continue? (Y/N)"
    do {
        $key = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
        $char = $key.Character.ToString().ToUpper()
        if ($char -ne "Y" -and $char -ne "N") {
            [console]::beep(1500, 500)
        }
    } while ($char -ne "Y" -and $char -ne "N")
    if ($char -eq "N") {Exit(1)} else {Clear-Host}
}
 
function Compress-Files {
    Add-Type -AssemblyName Microsoft.VisualBasic
 
    $dictionarySizesMb = $dictionarySizesMb | Sort-Object
 
    # Partir y formatear la cadena de file types para acomodarlo a la linea de argumentos de rar.exe
    if (-not [String]::IsNullOrEmpty($fileTypesToKeepUncompressed)) {
        $fileTypeTokens = $fileTypesToKeepUncompressed -split ';'
        $fileTypesArgumentLines = @()
        for ($i = 0; $i -lt $fileTypeTokens.Count; $i += 20) {
            $fileTypesArgumentLines += "-ms" + ($fileTypeTokens[$i..($i + 19)] -join ';') + [Environment]::NewLine
        }
        if ($fileTypesArgumentLines.Count -gt 0) {
            $fileTypesArgumentLines[-1] = $fileTypesArgumentLines[-1] -replace [Environment]::NewLine, ''
        }
    } else {
        $fileTypesArgumentLines = "-ms "
    }
 
    foreach ($inputFile in Get-ChildItem -LiteralPath "$PSScriptRoot" -File) {
 
        if ($inputFile.Name -eq [System.IO.Path]::GetFileName($PSCommandPath)) {
            continue
        }
 
        # Keeps track of created rar files by rar.exe
        $createdRarFiles = New-Object System.Collections.Generic.List[System.IO.FileInfo]
 
        foreach ($size in $dictionarySizesMb) {
 
            if (($size -ne $dictionarySizesMb[0]) -and ($inputFile.Length * 4) -le ($size * 1MB)) {
                $formattedSize = Format-FileSize -fileSize $inputFile.Length
                Write-Host "Ignoring compression with too big dictionary size of $size mb for a $formattedSize file: `"$($inputFile.Name)`"..." -ForegroundColor Yellow
                continue
            }
 
            $outputRarFilePath   = "$($inputFile.FullName)_$($size)mb.rar"
            $errorLogFilePath = "$($inputFile.FullName)_$($size)mb_error.log"
 
            $arguments = @(
                " a -u -ams -c- -cfg- -dh -ep1 -htb -idcdn -isnd- -iver -m5 -ma5 -md$($size)m",
                " -o+ -oc -oh -oi2 -ol -oni -qo+ -r -ri0:0 -s- -t -tk -tl -tsmca+",
                " $fileTypesArgumentLines",
                " -x`"*\$($MyInvocation.MyCommand.Name)`"",
                " -w`"$($env:TEMP)`"",
                " -ilog`"$errorLogFilePath`"",
                " -- `"$outputRarFilePath`"",
                " -- `"$($inputFile.FullName)`""
            )
 
            Write-Host "Compressing file with $size mb dictionary size: `"$($inputFile.Name)`"..."
            #Write-Host ""
            #Write-Host "rar.exe arguments:" -ForegroundColor DarkGray
            #Write-Host ($arguments -join [Environment]::NewLine) -ForegroundColor DarkGray
 
            $previousForegroundColor = $host.UI.RawUI.ForegroundColor
            $host.UI.RawUI.ForegroundColor = "DarkGray"
            $psi = New-Object System.Diagnostics.ProcessStartInfo
            $psi.FileName = $rarExecutablePath
            $psi.Arguments = $arguments -join ' '
            $psi.RedirectStandardOutput = $false
            $psi.UseShellExecute = $false
            $psi.CreateNoWindow = $false
 
            $process = [System.Diagnostics.Process]::Start($psi)
            $process.WaitForExit()
            $host.UI.RawUI.ForegroundColor = $previousForegroundColor
 
            $outputRarFile = New-Object System.IO.FileInfo($outputRarFilePath)
            $formattedOutputRarFileSize = Format-FileSize -fileSize $outputRarFile.Length
            Write-Host ""
            Write-Host "Created rar with file name: $($outputRarFile.Name) ($formattedOutputRarFileSize) ($($outputRarFile.Length) bytes)" -ForegroundColor DarkGreen
 
            if ($toleranceSizeDiff -ne $null) {
                if ($createdRarFiles.Count -ne 0) {
                    $outputRarFileSize = $outputRarFile.Length
                    $formattedOutputRarFileSize = Format-FileSize -fileSize $outputRarFileSize
                    $formattedToleranceFileSize = Format-FileSize -fileSize $toleranceSizeDiff
 
                    foreach ($createdRarFile in $createdRarFiles) {
                        if ($createdRarFile.Exists) {
                            $createdRarFileSize = $createdRarFile.Length
                            $formattedCreatedRarFileSize = Format-FileSize -fileSize $createdRarFileSize
                            $diffSize = [Math]::Abs($createdRarFileSize - $outputRarFileSize)
                            $formattedDiffSize = Format-FileSize -fileSize $diffSize
 
                            if (($outputRarFileSize + $toleranceSizeDiff) -ge $createdRarFileSize) {
                                Write-Host ""
                                Write-Host "Size of this created RAR file ($formattedOutputRarFileSize) ($outputRarFileSize bytes) is within the $formattedToleranceFileSize tolerance difference" -ForegroundColor Yellow
                                Write-Host "than a previously created RAR file of $formattedCreatedRarFileSize ($createdRarFileSize bytes) with smaller dictionary size..." -ForegroundColor Yellow
                                Write-Host "Size of this created RAR file only differs by $formattedDiffSize ($diffSize bytes)." -ForegroundColor Yellow
                                Write-Host "Deleting file: `"$($outputRarFile.Name)`"..." -ForegroundColor Yellow
                                if ($sendRarFilesToRecycleBin) {
                                    [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($outputRarFile.FullName, 'OnlyErrorDialogs', 'SendToRecycleBin')
                                } else {
                                    [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($outputRarFile.FullName, 'OnlyErrorDialogs', 'DeletePermanently')
                                }
                                Write-Host "Deletion completed." -ForegroundColor Yellow
                                break
                            } 
                        }
                    }
                }
            }
 
            if (Test-Path -LiteralPath $outputRarFile.FullName -PathType Leaf) {
                $createdRarFiles.Add($outputRarFile)
            }
            Write-Host ""
        }
 
        if ($keepOnlySmallestRarFile -and $createdRarFiles.Count -gt 0) {
            $existingFiles = $createdRarFiles | Where-Object { $_.Exists }
            if ($existingFiles.Count -gt 0) {
                Write-Host "`$keepOnlySmallestRarFile variable is `$True. Comparing file sizes of created RAR files..." -ForegroundColor Yellow
                Write-Host ""
                $smallestFile = $existingFiles | Sort-Object Length | Select-Object -First 1
                foreach ($file in $existingFiles) {
                    if ($file -ne $smallestFile) {
                        $formattedFileSize = Format-FileSize -fileSize $file.Length
                        Write-Host "Deleting file: `"$($file.Name)`" ($formattedFileSize)..." -ForegroundColor Yellow
                        if ($sendRarFilesToRecycleBin) {
                            [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($file.FullName, 'OnlyErrorDialogs', 'SendToRecycleBin')
                        } else {
                            [Microsoft.VisualBasic.FileIO.FileSystem]::DeleteFile($file.FullName, 'OnlyErrorDialogs', 'DeletePermanently')
                        }
                        Write-Host "Deletion completed." -ForegroundColor Yellow
                        Write-Host ""
                    }
                }
                $formattedSmallestFileSize = Format-FileSize -fileSize $smallestFile.Length
                Write-Host "Smallest file kept: $($smallestFile.Name) ($formattedSmallestFileSize)" -ForegroundColor Green
                Write-Host ""
            }
        }
 
    }
}
 
function Show-GoodbyeScreen {
    Write-Host "Operation Completed!" -BackgroundColor Black -ForegroundColor Green
    Write-Host ""
    Write-Host "Press any key to exit..."
    $key = $Host.UI.RawUI.ReadKey("NoEcho, IncludeKeyDown")
    Exit(0)
}
 
<#
===========================================================================================
|                                                                                         |
|                                         Main                                            |
|                                                                                         |
===========================================================================================
#>
 
[System.Console]::Title = "RAR Multi-Compression Test Tool (Files) - by Elektro"
#[System.Console]::SetWindowSize(150, 45)
[CultureInfo]::CurrentUICulture = "en-US"
 
try { Set-ExecutionPolicy -ExecutionPolicy "Unrestricted" -Scope "Process" } catch { }
 
Show-WelcomeScreen
Confirm-Continue
Compress-Files
Show-GoodbyeScreen

55	Foros Generales / Sugerencias y dudas sobre el Foro / [SOLUCIONADO] He publicado catorce hilos en el lugar incorrecto y de forma absurda...	en: 19 Marzo 2024, 01:09 am
Hola. En la sección de programación general (https://foro.elhacker.net/programacion_general-b18.0/), en la primera página, publiqué varios hilos cuyos títulos empiezan con el prefijo "[APORTE]". Pues todos esos hilos en realidad deberían ir en la sección de scripting. Me he dado cuenta ahora, o mejor dicho he caído ahora en la cuenta de que estaban publicados en otra sección del foro, por que he publicado un nuevo aporte en la sección de scripting y no encontraba estos otros hilos ahí, y me ha extrañado, y pensé para mis adentros: "¿dónde coño están mis otros hilos, me los habrán borrado sin decir nada?" . El caso es que los publiqué en la sección de Programación General de forma inconsciente, no seguí ningún criterio en especial, simplemente fue un acto inconsciente publicarlos ahí en Programación General, pero en realidad todos esos aportes son de lenguajes de scripting, así que... no están en su sección adecuada. Y es un poco absurdo, por que frecuentemente accedo a la sección de Programación General y veo mis hilos en la primera página de esa sección, y en todos los catorce hilos se puede ver perfectamente como comienzo el texto con frases similares a: "El siguiente script sirve para realizar tal cosa...", pero nada, que no he caído en la cuenta de que estaban publicados en la sección incorrecta, hasta ahora xD. Algo totalmente inconsciente por mi parte como ya digo. Son 14 hilos. Puede resultar tedioso moverlos (ya no me acuerdo cómo de fácil o tedioso era), pero bueno, un error inconsciente lo podemos tener cualquiera, disculpen. PD: Si alguien se había fijado en ello, quiero decir, que ese no era el lugar más indicado para ese tipo de aportes, ¡debería haberme dicho algo! (que no soy tan cascarrabias como algunos se pensarán). Un saludo.

Programación / Scripting / [APORTE] [VBS] VMWare: Mount / Unmount Shared Folders Network Drive

en: 19 Marzo 2024, 00:52 am

Los siguientes dos scripts, desarrollados en el lenguaje Visual Basic Script y que se deben usar en conjunto con una máquina virtual de VMWare (aunque se pueden modificar para Virtual Box), sirven como atajo para montar y desmontar la unidad de red de las "carpetas compartidas" (shared folders).

Utilizar estos scripts nos ahorra un valioso tiempo al no tener que usar el cliente de VMWare para abrir el menú de opciones donde desactivar y reactivar las carpetas compartidas.

La idea tras esta simple herramienta es eso, ahorrar tiempo, y de esta manera poder aislar la máquina virtual del sistema operativo anfitrión impidiendo el acceso a la unidad de red de las carpetas compartidas, y volver a habilitar el acceso, tan solo haciendo dos clicks para ejecutar estos scripts.

Mount Shared Folders Network Drive.vbs

Código

' Mount VMWare Shared Folders Network Drive
 
Option Explicit
 
Dim objFSO, objShell, objNetwork, colDrives, colNetDrives, i, msg
Dim objDrive, vmWareDrive, vmWarePath, drive, path
 
vmWareDrive = "Z:"
vmWarePath  = "\\vmware-host\Shared Folders"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set colDrives = objFSO.Drives
Set colNetDrives = objNetwork.EnumNetworkDrives
 
For i = 0 to colNetDrives.Count - 1 Step 2
	drive = colNetDrives.Item(i)
	path  = colNetDrives.Item(i+1)
 
	If (LCase(drive) = LCase(vmWareDrive)) Then
		If (LCase(path) = LCase(vmWarePath)) Then
			msg = "A network drive is already mounted with same letter and UNC path:" & vbCrLf & vbCrLf
			msg = msg & drive & vbTab & """" & path & """"
			objShell.Popup msg, 20, "Warning: Network Drives", 48
		Else
			msg = "A network drive is already mounted with a different UNC path:" & vbCrLf & vbCrLf
			msg = msg & drive & vbTab & """" & path & """"
			objShell.Popup msg, 20, "Error: Network Drives", 16
		End If
		WScript.Quit()
	End If
Next
 
For Each objDrive in colDrives
	drive = objDrive.DriveLetter & ":"
	If (LCase(drive) = LCase(vmWareDrive)) Then
		msg = "A local drive is already mounted with the same drive letter:" & vbCrLf & vbCrLf
		msg = msg & "Letter: " & drive & vbCrLf
		msg = msg & "FileSystem: " & objDrive.FileSystem & vbCrLf
		msg = msg & "Volume Name: " & objDrive.VolumeName & vbCrLf
		msg = msg & "Share Name: " & objDrive.ShareName 
		objShell.Popup msg, 20, "Error: Network Drives", 16
		WScript.Quit()
	End If
Next
 
objNetwork.MapNetworkDrive vmWareDrive, vmWarePath
 
msg = "The following network drive was successfully mounted:" & vbCrLf & vbCrLf
msg = msg & vmWareDrive & vbTab & """" & vmWarePath & """"
objShell.Popup msg, 20, "Info: Network Drives", 64
WScript.Quit()

Unmount Shared Folders Network Drive.vbs

Código

' Unmount VMWare Shared Folders Network Drive
 
Option Explicit
 
Dim objShell, objNetwork, colDrives, i, msg
Dim vmWareDrive, vmWarePath, drive, path
 
vmWareDrive = "Z:"
vmWarePath  = "\\vmware-host\Shared Folders"
 
Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
 
For i = 0 to colDrives.Count - 1 Step 2
	drive = colDrives.Item(i)
	path  = colDrives.Item(i+1)
 
	If (LCase(drive) = LCase(vmWareDrive)) Then
		If (LCase(path) = LCase(vmWarePath)) Then
			objNetwork.RemoveNetworkDrive vmWareDrive, True, True
 
			msg = "The following network drive was successfully unmounted:" & vbCrLf & vbCrLf
			msg = msg & drive & vbTab & """" & path & """"
			objShell.Popup msg, 20, "Info: Network Drives", 64
		Else
			msg = "A network drive is already mounted with a different UNC path:" & vbCrLf & vbCrLf
			msg = msg & drive & vbTab & """" & path & """"
			objShell.Popup msg, 20, "Warning: Network Drives", 16
		End If
		WScript.Quit()
	End If
Next
 
msg = "No matching network drive " & """" & vmWareDrive & """" & " was found."
objShell.Popup msg, 20, "Error: Network Drives", 16
WScript.Quit()

57	Programación / Scripting / Re: Archivo bat para borrar una entrada de registro	en: 18 Marzo 2024, 21:50 pm
Cita de: zelarra en 18 Marzo 2024, 19:46 pm Hola, muchas gracias, acabo de probarlo y esto es el resultado: https://ibb.co/4NRRP2h Te sugiero que vuelvas a probar el script, pero esta vez ejecútalo desde la cuenta integrada "Administrador" en Windows. Para activar la cuenta integrada "Administrador", y asumiendo que tengas suficientes permisos de usuario para ello, simplemente abre la CMD y escribe el siguiente comando: Código: net user administrador /active:yes - https://petri.com/how-to-enable-built-in-administrator-account-windows-10/ Una vez que la cuenta integrada "Administrador" esté activa, simplemente inicia sesión en dicha cuenta de usuario, y ejecuta el script de PowerShell para que el script vuelva a intentar realizar las modificaciones de permisos de usuario sobre las claves de la rama HKLM. En caso de que la metodología de adquisición de permisos sobre las claves del registro de la rama HKLM mediante PowerShell te siga fallando, en ese caso te sugiero, desde la cuenta "Administrador", seguir las siguientes indicaciones: 1. Descarga del siguiente enlace el programa de terceros por línea de comandos 'SetACL' (no confundir con 'SetACL Studio'): https://helgeklein.com/download/ 2. Coloca el archivo executable descargado, "setacl.exe", junto a este batch-script en la misma carpeta: SetAcl.cmd Código @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 3. Ejecuta el script. Deberías ver algo como esto: En caso de que te de error indicando que no se ha podido realizar correctamente la operación en el registro, modifica el valor de esta variable: Código: Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PackagedCom\Package" Por este otro valor: Código: Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PackagedCom" Y vuelve a ejecutar el script. En caso de que te siga dando error, sigue acortando el valor, y volviendo a ejecutar el script con la clave de registro acortada, hasta llegar a la raíz HKLM: Código: Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE\Classes" Código: Set "RegKey=HKEY_LOCAL_MACHINE\SOFTWARE" Código: Set "RegKey=HKEY_LOCAL_MACHINE" La idea es modificar el propietario y obtener permisos completos de las claves de registro donde sea estrictamente necesario obtenerlos, preferiblemente NO en la rama HKLM al completo, por eso te he indicado que vayas acortando el valor (la ruta del registro) poco a poco mientras vas ejecutando el batch-script por cada cambio que hagas. Con estas indicaciones, desde el punto nº1 al nº3, se asume que entiendes los posibles riesgos que puede conllevar modificar los permisos de usuario de las claves del registro de Windows. No me hago responsable de un posible malfuncionamiento en el sistema operativo tras aplicar cambios de permisos de usuario en el registro de Windows. Aténtamente, Elektro.

Programación / Scripting / Re: Archivo bat para borrar una entrada de registro

en: 18 Marzo 2024, 08:02 am

El error se debe a que no tienes permisos de eliminación sobe la clave.

Prueba con esta nueva modificación:

Código

<# 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)

Programación / Scripting / Re: Archivo bat para borrar una entrada de registro

en: 18 Marzo 2024, 03:15 am

Cita de: zelarra en 17 Marzo 2024, 22:55 pm

Esto es lo que debería borrar en el registro:

https://www.dropbox.com/scl/fi/ozju0sdo40bcfam5f14ge/04.jpg

Y esa es precisamente la clave que encuentra y termina borrando, como expliqué en mi primer comentario.

Podría haber algún problema de permisos de usuario; el script que has mostrado igora los errores sin mostrar información en caso de error (bloque catch vacío).

Lo he modificado un poco (bastante) a conveniencia para informar sobre errores. Asegúrate de que las rutas del registro son correctas por que no se si las he escrito bien viendo las capturas de pantalla:

Script.ps1

Código

<# 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)

60	Programación / Scripting / Re: Archivo bat para borrar una entrada de registro	en: 17 Marzo 2024, 23:12 pm
Cita de: zelarra en 17 Marzo 2024, 22:55 pm Lamentablemente no puedo ver ninguna de las imágenes que has compartido, ya que se requiere aceptar una solicitud de acceso por tu parte: Citar No tienes acceso a este contenido. Has iniciado sesión como **@*.com. Acepta mi solicitud (por cada archivo que has subido) o prueba a subir las imágenes en algún hosting* de imágenes como https://imgur.com/.

Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ... 1236