Per Batch eine bestimmte Zeichenfolge auslesen

Guten Abend zusammen.

Ich habe sehr lange nach der Lösung zu meinem Problem gesucht. Dann bin ich au dieses Forum hier gestossen.
Folgendes:

Ich habe eine .txt Datei. Dort steh ganz viel wirres Zeug drin. Und immer wieder versteckt sich in diesem Wirrwar eine Zeichenfolge, die ich in eine Neue .txt Datei kopieren möchte.
Die Zeichenfolge hat immer 6 Zeichen (Zahlen und Buchstaben) und ist links und rechts mindestens von einem Leerschlag umgeben.
Es sollten nur diese Zeichenfolgen ausgelesen werden, die keine kleinen Buchstaben beinhalten. (Oder kann ich per Batch die kleinen Buchstaben zu grossen machen?)
In der neuen Datei sollten die Zeichenfolgen untereinander aufgelistet werden.

Beispiel:

Bestehende Datei:
o 6080.75s 135.00 0.00
o 6080.75s QW309P 0.00 0.00
o 61.75s 0.00 0.00
AK
v 0.00s 0.00 0.00
v 6152.50s 0.00 56HU7E 0.00
v 6152.50s 235.00 0.00
v 6095.75s 4561Z9 235.00 -15.00


Neue erstellte Datei:
QW309P
56HU7E
4561Z9


Kann mir jemand weiterhelfen?
Liebe Grüsse.
ClownUser

Ein = "D:\Deine Datei.txt"  
Aus = "D:\Deine neue Datei.txt"  

Set fso = CreateObject("Scripting.FileSystemObject")  
T = fso.OpenTextFile(Ein).ReadAll

Set rE = New RegExp
rE.Global = True
rE.Pattern = "\b[A-Z0-9]{6}\b"  

Set A = fso.CreateTextFile(Aus)
Set Matches = rE.Execute(T)
For Each Match In Matches
    A.WriteLine Match
Next
A.Close

cscript //nologo D:\HolMirDieStrings.vbs

D:\HolMirDieStrings.vbs

rE.Pattern = "\b[A-Za-z0-9]{6}\b" 

A.WriteLine UCase(Match)