Problem For-Schleife in Batch

For /F "tokens=2 delims=:" %%i in ('zbarimg "%~1"') do Set "NEUERNAME=%%i"  

Set objShell = CreateObject("Wscript.Shell")  

'Befehl ausführen  
Set oExec = objShell.Exec("cmd /c zbarimg Test-Datei.jpg")  

'Warte darauf das der Befehl beendet wurde  
Do While oExec.Status = 0
     WScript.Sleep 100
Loop

' StdOut auslesen  
out = ""  
Do While Not oExec.StdOut.AtEndOfStream
   out = out & oExec.StdOut.ReadAll
Loop

' zweites Token der ersten Zeile ausgeben, Delimiter ist ":"  
MsgBox Split(out,":",-1,1)(1)  

Set objShell = CreateObject("Wscript.Shell")  
Set regex = CreateObject("vbscript.regexp")  
regex.IgnoreCase = True : regex.Global = True
regex.Pattern = ":((B|E)\d{4}-[^\s]+)"  
'Befehl ausführen  
Set oExec = objShell.Exec("cmd /c zbarimg Test-Datei.jpg")  

'Warte darauf das der Befehl beendet wurde  
Do While oExec.Status = 0
     WScript.Sleep 100
Loop

' StdOut auslesen  
out = ""  
Do While Not oExec.StdOut.AtEndOfStream
   out = out & oExec.StdOut.ReadAll
Loop

Set matches = regex.Execute(out)
if matches.count > 0 then
    for each match in matches
        Msgbox match.submatches(0)
    next
end if