Dateinamen durch vorangestellte Nullen auf gleiche Länge bringen

Hallo Gemeinde,
schon wieder stehe ich vor einen Problem und benötige Eure geschätzte Hilfe. Ich habe das Internet und auch das Forum hier durchforstet und die angebotenen Lösungen sind für Linux, PHP oder Python bzw. funktionieren nicht nach meinen Wünschen. Die im Netz angebotenen Programme tun dies auch nicht bzw. habe ich noch nicht das richtige gefunden. Vielleicht kann mir jemand einen Lösungsweg in VBS oder als Batchdatei aufzeigen, mit dem ich folgendes erreiche:
Die Dateinamen in einem Ordner sollen durch vorangestellte Nullen alle auf gleiche Länge gebracht werden, also z.B.

• 1.jpg wird 00001.jpg
• 14.jpg wird 00014.jpg
• 111.jg wird 00111.jpg
• 999.jpg wird 00999.jpg
• 8888.jpg wird 08888.jpg
• 12345.jpg bleibt

wobei sich also alles nach der Datei mit dem längsten Namen, in diesem Fall also um 12345.jpg richtet (5 Stellen Präfix). Bei dem zu ändernden Datei(nam)en handelt es sich ausschlöießlich um solche, die aus ZIffern bestehen.
Ich würde mich sehr freuen, wenn eine nachvollziehbare LÖsung gefunden würde und danke im voraus für Eure Mühe
Freundlichst GH

$dir ='D:\Verzeichnis'  
$max = (Get-ChildItem $dir -File | %{$_.Basename.Length} | measure -Maximum).Maximum
Get-ChildItem $dir -File -Filter *.jpg | rename-item -NewName {"$($_.Basename.padleft($max,'0'))$($_.Extension)"} -verbose  

@echo off &setlocal enabledelayedexpansion
set max=5
for %%a in ("D:\Verzeichnis\*.jpg") do (  
    set "basename=0000%%~na"  
    ren "%%a" "!basename:~-%max%!%%~xa"  
)

$directory = "X:\Pfad\zum\Verzeichnis"  

$files = Get-ChildItem -Path $directory -File

$maxLength = ($files | ForEach-Object { $_.Name.Length } | Measure-Object -Maximum).Maximum


 foreach ($file in $files) {
     $newName = $file.Name.PadLeft($maxLength, '0')  
     $newPath = Join-Path -Path $directory -ChildPath $newName
    Rename-Item -Path $file.FullName -NewName $newPath
}

for %%a in (".\jpg")