Nombres de tirage d'une imprimante

bonjour
ce vbscript t'indique le nombre d'impression par imprimante
à adapter avec un If pour ton imprimante syuivi d'un "exit for" ou "end"
ce script est sur le serveur

strComputer = "." 
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 "Nom: " & objPrintQueue.Name 
        Wscript.Echo "nombre d'impression réalisée: " & objPrintQueue.TotalJobsPrinted 

 next

Michel

Il faut changer d'imprimante, et en choisir une qui comporte cette option.

En attendant, tu mets du papier dans l'imprimante par ramettes de 25 feuilles, et tu comptes le nombre de fois où tu en remets (c'est comme pour suivre la consommation d'essence de ta voiture).