off of the top of my head... adsi has functions to open and view printer queue's.

a quick example on how to display all printjobs in a given print queue.

code:
$computer = getobject("WinNT://@wksta")
$computer.filter = "printqueue",""


for each $printer in $computer
	? $printer.name
	for each $job in $printer.printjobs
		"	" + $job.user + "	" + $job.TimeSubmitted + "	" + $job.totalpages
	next
next