30 de enero de 2012

Saber si una impresora esta en linea

Aquí les dejo un código que modifique para saber si una impresora esta en linea.
LOCAL NomImpresora

strComputer = "."
objWMIService = GETOBJECT("winmgmts:"+ "{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")
colInstalledPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")

*** impresora predeterminada
NomImpresora = UPPER(SET("Printer",2))

FOR EACH objPrinter IN colInstalledPrinters
  IF ALLTRIM(UPPER(objPrinter.NAME)) = NomImpresora
    IF (objPrinter.PrinterStatus = 3 OR objPrinter.PrinterStatus = 2) AND objPrinter.workoffline
      WAIT WIND "Impresora Apagada"
      RETURN
    ENDIF
  ENDIF
NEXT
Jose Luis Sayago Baez

No hay comentarios. :

Publicar un comentario