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
Partager