Verifier en permanence le PrinterStatus !
Bonjour à la communauté VB,
Je suis apprenti développeur en php. Je découvre le VBS aujourd'hui et
je sollicite donc votre aide pour parvenir à vérifier de manière permanente le PrinterStatus.
Je m'explique, j'ai fait le script ci-dessous. Seulement je voudrais détecté l'évènement "Imprimer". Je fait des tests virtuel avec PDFCreator.
C'est à dire quand le PrinterStatus passe à "4" d'aprés => http://msdn.microsoft.com/en-us/library/Aa394363
Je ne comprend pas comment vérifier en permanence ou créer cet évènement.
(qui déclenchera bien sur de nouvelles instructions).
J'ai pensé au vbs car il faudrait que ce script tourne en tache de fond et sur un conseil de quelqu'un, mais n'importe quel langage fera l'affaire...
Code:
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
33
34
35
36
37
38
39
|
Option Explicit
Dim objWMIService, objItem, strComputer, intPrinters, printer, chaine
strComputer ="."
chaine=""
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\CIMV2")
Set printer = objWMIService.ExecQuery _
("SELECT * FROM Win32_Printer WHERE Name = 'PDFCreator' ")
Call Wait()
For Each objItem In printer
WScript.Echo "Printers on " _
& objItem.name & ", Printer Number: " & VbCr & _
"====================================" & VbCr & _
"Availability: " & objItem.Availability & VbCr & _
"Description: " & objItem.Description & VbCr & _
"Printer: " & objItem.DeviceID & VbCr & _
"Driver Name: " & objItem.DriverName & VbCr & _
"Printer State: " & objItem.PrinterState & VbCr & _
"Printer Status: " & objItem.PrinterStatus & VbCr & _
"Status: " & objItem.Status & VbCr & _
"StatusInfo: " & objItem.StatusInfo & VbCr & _
"ShareName: " & objItem.ShareName & VbCr & _
""
Next
sub Wait()
If strComputer = "." then
strComputer = "Local Host"
else strComputer = strComputer
end if
End Sub
WScript.Quit |
