Nombres de tirage d'une imprimante
yves
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Salut, j'ai une imprimante Hp Laser jet 4000 que j'ai partagé dans mon réseau. Mon problème est que je veux savoir le nombres tirages qu'il a fait.
2 réponses
-
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).
