Discussion :

[renoelectro]

Bonjour j'aimerai remonter les erro - printing dans les queues d'impressions de mon serveur.

J'arrive a remonter les erreures sur une queues d'impression mais pas à descendre sur le job status et "error - printing"

Ce code selectionne tous les job en cours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
 
Dim strComputer, objWMIService, colPrintJobs, strPrinter, objPrintJob
 
 
 
strComputer = "MACS09"
 
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colPrintJobs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_PrintJob Where Name Like '%Error - Printing%'")
 
Wscript.Echo "Print Queue, Job ID, Owner, Total Pages"
 
 
For Each objPrintJob in colPrintJobs
 
 strPrinter = Split(objPrintJob.Name,",",-1,1)
 
 Wscript.Echo strPrinter(0) & ", " & _
 objPrintJob.JobID & ", " & objPrintJob.Owner & ", " _
 & objPrintJob.TotalPages
 
 
Next
 
 
 
WScript.Quit

[renoelectro]

Je pense qu'il faut que j'utilise Win32_PrintJob Class mais je ne sais pas comment l'utiliser pour recupérer la valeur du job status "erro - printing"

[ced600]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Wscript.Echo strPrinter(0) & ", objPrintJob.JobID = " & objPrintJob.JobID & ", objPrintJob.Owner = " & objPrintJob.Owner & ", objPrintJob.TotalPages = " & objPrintJob.TotalPages & ", objPrintJob.JobStatus = " & objPrintJob.JobStatus

Un truc comme cela que tu veux ?