Знаю що в Microsoft PowerToys є інструмент для масового перейменування
https://learn.microsoft.com/windows/powertoys/powerrename

Написав програмку на VBScript. Не перейменовує файли в підкаталогах. Змінює назву файлів таким чином що видаляється рядок символів що починається з - і закінчується . По задумці має виходити так: 11115-(81)-aa13.jpeg -> 11115.jpeg. Запускати на свій страх. Файли копіюються з новими назвами з одного каталогу до іншого.

• Копіюєш текст нижче в текстовий редактор і зберігаєш в файлі з будь–якою назвою.

• В каталозі зі збереженим файлов відриваєш вікно cmd.exe і пишеш там cscript.exe massrname.vbs /folder:"d:\mass" /d:"c:\dd" та тиснеш клавішу Enter. massrename.vbs треба замінити на назву файлу в якому було збережоно наведений нижче текст а d:\mass на шлях до каталогу з файлами які треба перейменувати. c:\dd замінюш на шлях до каталогу куди будуть копіюватися файли з новими назвами. Шляхи до каталогів мають бути в лапках.

Dim objRegExp
Set objRegExp = CreateObject("VBScript.RegExp")
With objRegExp
    .IgnoreCase = True
    .Pattern = "-.+\."
End With

Dim obj_shell
Set obj_shell = CreateObject("WScript.Shell")

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

Dim oFolder

Set oFolder = oFSO.GetFolder(WScript.Arguments.Named("folder"))

Dim d
d = WScript.Arguments.Named("d")

Dim oMatches
For Each oFile In oFolder.Files
        Set oMatches = objRegExp.execute(oFile.Name)
        If oMatches.count > 0 Then
            Dim m
            m = d & "\" & Replace(ofile.Name, oMatches.item(0), ".")
            WScript.Echo ofile.Name & " -> " & m
            oFSO.CopyFile ofile.Path, m
        End If
Next
' Beep
WScript.StdOut.Write Chr(7)