Descomprimir multiples autoextraibles con contraseña (ej: tuanimeligero)

extract-tuanimeligero.bat

@echo off

set pwshcmd=powershell -noprofile -command "&{[System.Reflection.Assembly]::LoadWithPartialName('System.windows.forms') | Out-Null;$FolderDialog = New-Object System.Windows.Forms.FolderBrowserDialog;$FolderDialog.Description = \"Elige la carpeta donde se encuentran los autoextraibles\";$FolderDialog.rootfolder = \"MyComputer\";$FolderDialog.SelectedPath = (Get-Item -Path '.').FullName; $FolderDialog.ShowDialog()|out-null; $FolderDialog.SelectedPath}"

for /f "delims=" %%s in ('%pwshcmd%') do (
   set selected=%%s
)

set pwshcmd=powershell -noprofile -command "&{[System.Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic') | Out-Null;[Microsoft.VisualBasic.Interaction]::InputBox('Confirma o escribe la clave para extraer los archivos', 'Clave', 'tuanimeligero')|Out-String}"

for /f "delims=" %%p in ('%pwshcmd%') do (
   set password=%%p
)

cd %selected%

for %%f in (*.exe) do (
   echo %%f
   %%f -p%password% -s
)
pause