Versionsnummer, Datum, Filename auslesen

Guten Tag,

ich habe folgende Problemstellung zu lösen: In einem Ordner auf einem Server liegen sehr viele .exe Dateien. Diese .exe Dateien sollen jetzt mit ihrer Versionnummer, ihrem Datum (wobei ich noch klären muss, welches Datum gemeint ist) und ihrem Namen (ohen Pfad und Dateiendung) aufgelistet werden, sodass diese in Excel weiterverabeitet werden können.
Meine Kenntnisse in Batch sind bescheiden, in VBS habe ich gar keinen Plan.

Zur Verfügung steht mir alles, was ich brauche. Tools, OS etc. sind also egal. Schön wäre es, wenn ich WinXP mit Boardmitteln nutzen könnte.

Meine Lösung sieht so aus. Sie funktioniert und gibt mir lauter Zeilen des Schemas ABCD;TT.MM.JJJJ;VERS aus. Das sieht eigentlich ganz gut aus.

- Den VBS Teil in Zeile 6,7,8 habe ich gar nicht verstanden. Diese Zeilen sind Teil eines Codes, den ich hier bei administrator.de gefunden habe (ich glaube bearbeitet durch Biber und Bastla - vielen Dank dafür!)
- Die Zeile 13 verstehe ich auch nicht (besser gesagt das 'cscript //nologo "%GetV%" "%~1"') - ebenfalls ein kopierter Abschnitt des Codes von Biber und Bastla.
- Die Zeile 15 gibt mir ein Dateidatum aus (durch das %%~tj).
- Das Datum gibt mir auch die Uhrzeit dazu aus. Daher habe ich in Zeile 18 einfach die letzten 7 Zeichen des Strings abgeschnitten.
- Das Problem mit dem Dateinamen habe ich in Zeile 20,21,22 gelöst, indem ich einfach fest die ersten 3 und die letzten 4 Zeichen abschneide. Das ist natürlich höchst statisch (doof).

Jetzt meine Frage:
Wie muss ich dieses Script anpassen, damit es 1. auch mit beliebigen Pfaden funktioniert und 2. mir auch die anderen Datum der Datei ausgibt?



Dies ist kein dringliches Problem, ich kann mit dem Skript ja händisch das Ziel erreichen. Dennoch würde ich mich freuen, wenn Verbesserungsvorschläge kommen, insbesondere bzgl. des Datums. Herzlichen Dank!

@echo off & setlocal 

::Falls Aufruf der Batch ohne Parameter, Hinweis, wie die Batch korrekt in der Konsole aufzurufen ist
If "%*"=="" (echo Syntax: %~n0 [Lw:\Pfad\] Dateiname ^(Wildcards erlaubt^) &&  goto :eof)   
:: Pfad von der Konsole abgreifen
set "GetV=%Temp%\GetV.vbs"   

:: VBS Teil - Script von Bastla und Biber
echo Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")>"%GetV%"   
echo Set colFiles=objWMIService.ExecQuery ("SELECT * FROM CIM_Datafile WHERE Name='"^&Replace(WScript.Arguments(0),"\","\\")^&"'")>>"%GetV%"   
echo For Each objFile in colFiles: WScript.Echo Replace(Replace(objFile.Version,",",".")," ",""): Next>>"%GetV%"   

:: Für jede Datei die Eigenschaften auslesen und wegloggen
For %%i in (%*) do call :getSpecs "%%i"   
:: End of Script
del "%GetV%"  & goto :eof  

:: Eigenschaften der Datei auslesen
:getSpecs

::Versionnummer
set "Version=" & for /f %%i in ('cscript //nologo "%GetV%" "%~1"') do set "Version=%%i"   
::Erstellung
for /f "delims=" %%j in ('dir %1 /s /b /a-d /tc') do set filedate1=%%~tj  
::Letzter Zugriff
for /f "delims=" %%k in ('dir %1 /s /b /a-d /ta') do set filedate2=%%~tk  
::Letzter Schreibzugriff
for /f "delims=" %%l in ('dir %1 /s /b /a-d /tW') do set filedate3=%%~tl  
:: Dateinameohne Pfad und Endung
set filename=%~n1

::Log schreiben: Datei;Erstellungsdatum;Letzter_Zugriff;Letzter_Schreibzugriff;Versionsnummer
if defined Version echo %filename%;%filedate1%;%filedate2%;%filedate3%;%Version% >> c:\version_mitZeit.log

set "filedate1="  
set "filedate2="  
set "filedate3="  
for /f "skip=5 delims= " %%j in ('dir "%~1" /tc') do if not defined filedate1 set filedate1=%%j  
for /f "skip=5 delims= " %%j in ('dir "%~1" /ta') do if not defined filedate2 set filedate2=%%j  
for /f "skip=5 delims= " %%j in ('dir "%~1" /tw') do if not defined filedate3 set filedate3=%%j  

set "filedate1="  
set "filedate2="  
set "filedate3="  
for /f "skip=5 tokens= 1,2 delims= " %%j in ('dir "%~1" /tc') do if not defined filedate1 set filedate1=%%j %%k  
for /f "skip=5 tokens= 1,2 delims= " %%j in ('dir "%~1" /ta') do if not defined filedate2 set filedate2=%%j %%k  
for /f "skip=5 tokens= 1,2 delims= " %%j in ('dir "%~1" /tw') do if not defined filedate3 set filedate3=%%j %%k