监视打印机状态

 

描述

在任何时候，只要打印机更改状态，就使用临时性的事件消费程序发出警报。

strComputer  =   " . "
Set  objWMIService  =   GetObject ( " winmgmts: "  _
     &   " {impersonationLevel=impersonate}!\\ "   &  strComputer  &   " \root\cimv2 " )
Set  colPrinters  =  objWMIService. _ 
    ExecNotificationQuery( " Select * from __instancemodificationevent  "  _ 
         &   " within 30 where TargetInstance isa 'Win32_Printer' " )
i  =   0
Do   While  i  =   0
     Set  objPrinter  =  colPrinters.NextEvent
     If  objPrinter.TargetInstance.PrinterStatus  <>  _ 
        objPrinter.PreviousInstance.PrinterStatus  Then
         Select   Case  objPrinter.TargetInstance.PrinterStatus
             Case   1  : strCurrentState  =   " Other "  
             Case   2  : strCurrentState  =   " Unknown "  
             Case   3  : strCurrentState  =   " Idle "  
             Case   4  : strCurrentState  =   " Printing "  
             Case   5  : strCurrentState  =   " Warming Up "  
         End   Select
         Select   Case  objPrinter.PreviousInstance.PrinterStatus
             Case   1  : strPreviousState  =   " Other "  
             Case   2  : strPreviousState  =   " Unknown "  
             Case   3  : strPreviousState  =   " Idle "  
             Case   4  : strPreviousState  =   " Printing "  
             Case   5  : strPreviousState  =   " Warming Up "  
         End   Select
        Wscript.Echo objPrinter.TargetInstance.Name _ 
             &    "  is  "   &  strCurrentState _
                 &   " . The printer previously was  "   &  strPreviousState  &   " . "
     End   If
Loop