Re: Auflisten von Druckaufträgen auf einem Cluster

von Bernd Pfann » Mittwoch, 23. Februar 2005



Jürgen wrote:
[...]
> ich möchte unten stehendes Skript auf einem Cluster verwenden
> Das Ergebnis ist aber immer eine leere Liste.
> (Win32_PrintJob liefert keine Ergebnisse)
[...]
>
> --- Dieses Beispiel klappt im Cluster nicht -------
> ' Returns total number of jobs, total number of pages, and largest
> job for all print queues on a computer.
>
> strComputer = "."
> 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

probier mal unter
strComputer = "." den Namen des "Virtuellen Servers" welcher die Queue
hällt.

--
Mit freundlichen Grüßen / Kind regards - Bernd Pfann (Microsoft)

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





Re: Auflisten von Druckaufträgen auf einem Cluster

von Bernd Pfann [MS] » Donnerstag, 24. Februar 2005







[...]
strComputer = "__hier den virtuellen server eintragen ___"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrintQueues = objWMIService.ExecQuery _
("Select * from Win32_PerfFormattedData_Spooler_PrintQueue Where " & _
"Name <> '_Total'")
For Each objPrintQueue in colPrintQueues
Wscript.Echo "Name: " & objPrintQueue.Name
Wscript.Echo "Current jobs: " & objPrintQueue.Jobs
Next

liefert bei mir die Anzahl der Jobs zurück. Der Fehler liegt im Script von
Dir.
Gruß, Bernd





Re: Auflisten von Druckaufträgen auf einem Cluster

von news.microsoft.com » Mittwoch, 2. März 2005










Ich schau mir die Sache nochmals genauer an, bin nur leider gerade im
Ausland - melde mich aber wenn ich weitere Infos habe.
--
Mit freundlichen Grüßen / Kind regards - Bernd Pfann (Microsoft)

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





If you have any questions, you can contact us: admin#mofeel.net     Spam Report