Seitenzahl aus Drucker.log auslesen

Hallo, ich habe hier aus dem Forum eine vbs, die aus dem Ereignisanzeige alle Druckergebnisse ausliest und in eine Datei schreibt. Hier mal die VBS:

strFile = "C:\PrintEvents.log"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'System' and " _
& "EventCode = '10'")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strFile)
objFile.WriteLine "Time:" & vbTab & vbTab & vbTab & vbTab & "Computer:" & vbTab & "User:" & vbTab & vbTab & vbTab & vbTab & "Message:"

For Each objEvent in colLoggedEvents
objFile.WriteLine objEvent.TimeWritten & vbTab & objEvent.ComputerName & vbTab & vbTab & objEvent.User & vbTab & vbTab & objEvent.Message


Next
objFile.Close

Aus dieser Datei soll nun ausgelesen werden, wieviele Seiten gedruckt wurden und auf 2 Drucker verteilt.
Hier mal ein Ausschnitt aus der printevents.log:

Time: Computer: User: Message:
20081107184042.000000+060 PETER PETER\...... Dokument 2, ........... in... im Besitz von ..... wurde über Anschluss USB001 auf EPSON Stylus DX3800 Series gedruckt. Größe in Bytes: 18236; Seiten gedruckt: 2

;
20081102110050.000000+060 PETER PETER\...... Dokument 2, ............. im Besitz von ....... wurde über Anschluss USB001 auf EPSON Stylus DX3800 Series gedruckt. Größe in Bytes: 38532; Seiten gedruckt: 1

daraus soll dann wieder 2 Dateien geschrieben werden, einmal der Farblaser soll in die Farblaser.txt und in die sw-drucker.txt in der datei soll dann nur untereinander stehen, wieviele Seiten auf diesem Drucker gedruckt wurden. BSP.
1
4
2
1
1
2

Ich hab schonmal was vorbereitet:
set file="C:\PrintEvents.log"
for /f "delims" %%a in ('find " Seiten gedruckt: " %file%') do echo %%a>>C:\seiten.txt
Es fehlt noch die unterscheidung in die drucker und das immmer zu viel ausgelesen wird. Ich hoffe ihr könnt mir helfen. bb Peter

@echo off & setlocal
set "file=C:\PrintEvents.log"  

set "p1=EPSON Stylus DX3800"  
set "f1=Farblaser.txt"  

set "p2=SW-Drucker-Name"  
set "f2=sw-drucker.txt"  

if exist "%f1%" del "%f1%"  
if exist "%f2%" del "%f2%"  
for /f "tokens=3 delims=:" %%a in ('findstr /i /c:"%p1%" "%file%"') do >>"%f1%" echo %%a  
for /f "tokens=3 delims=:" %%a in ('findstr /i /c:"%p2%" "%file%"') do >>"%f2%" echo %%a  

@echo off & setlocal
set "file=C:\PrintEvents.log"  

set "p1=Farblaser"  
set "f1=Farblaser.txt"  

set "p2=A3-SW-Drucker"  
set "f2=sw-drucker.txt"  

if exist "%f1%" del "%f1%"  
if exist "%f2%" del "%f2%"  
for /f "delims=" %%a in ('findstr /i /c:"%p1%" "%file%"') do set "Line=%%a" & call :ProcessLine "%f1%"  
for /f "delims=" %%a in ('findstr /i /c:"%p2%" "%file%"') do set "Line=%%a" & call :ProcessLine "%f2%"  
goto :eof

:ProcessLine
for /f "tokens=2" %%i in ("%Line:~-10%") do >>%1 echo %%i