Enumerating printjobs on W2K3 cluster


G

Guest

Dear all,

I'd like to run the following Script on a 2003 Cluster.
But the resulting list is always empty.
(Win32_PrintJob returns no instances)

Any hints or workarounds are highly appreciated

Thanks a lot

Juergen

--- Not working in Cluster environment -------
' Returns total number of jobs, total number of pages, and largest job for
all print queues on a computer.

strComputer = "."
' Even this doesn't work - strComputer = "WERCL01_PRN01"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPrintJobs = objWMIService.ExecQuery _
("Select * from Win32_PrintJob")

For Each objPrintJob in colPrintJobs
intTotalJobs = intTotalJobs + 1
intTotalPages = intTotalPages + objPrintJob.TotalPages
If objPrintJob.TotalPages > intMaxPrintJob Then
intMaxPrintJob = objPrintJob.TotalPages
End If
Next

Wscript.Echo "Total print jobs in queue: " & intTotalJobs
Wscript.Echo "Total pages in queue: " & intTotalPages
Wscript.Echo "Largest print job in queue: " & intMaxPrintJob
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top