Here's a script I have to delete jobs from the print queue.
You'll have to modify it to meet your needs. The first oShell send the net print output to a file. I then open that and parse the data that I need.
I hope this helps!
Mapman04
VB Script Code
Dim oShell,fso,txt3,adm1,adm2,intJobs,intID,intCnt
Set oShell = WScript.CreateObject ("WSCript.shell"

oShell.run "cmd /C CD C:\ & Net Print \\Computername\Printer >C:\Temp\Print.txt",0,true
Set fso = Wscript.CreateObject("Scripting.FileSystemObject"

Set txt3 =fs

penTextFile("C:\Temp\Print.txt",1)
intCnt = 0
Do While txt3.AtEndOfStream = False
adm1 = txt3.ReadLine
adm2 = Mid(adm1,33,2)
If IsNumeric(adm2) = True Then
intID = CInt(adm2)
oShell.run "cmd /C CD C:\ & Net Print \\Printer " & intID & " /Delete",0,true
intCnt = intCnt + 1
End If
Loop
txt3.Close
If intCnt>0 Then
oShell.Popup intCnt & " print jobs were deleted from the queue!",5,"Company",0
End If
WScript.Quit