Enumerating printjobs on W2K3 cluster

[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

 

[Alan Morris\(MSFT\)]

WMI does not support virtual names. The spooler does. Pick up the resource
kit and use prnadmin.dll

http://www.microsoft.com/downloads/...69-57ff-4ae7-96ee-b18c4790cffd&DisplayLang=en

--
Alan Morris
Windows Printing Team
Search the Microsoft Knowledge Base here:
http://support.microsoft.com/default.aspx?scid=fh;[ln];kbhowto

This posting is provided "AS IS" with no warranties, and confers no rights.