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 : 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
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