6/1/2010 11:14 AM | |
Posts: 91 Rating: (6) |
Hi, maybe this will help you: http://msdn.microsoft.com/en-us/library/aa394363(VS.85).aspx Example VBScript: FUNCTION GetPrinterStatusAsText as String LPARAMETERS oPrinter as Object LOCAL lcReturn as String lcReturn = [] DO CASE CASE oPrinter.PrinterStatus = 1 * // Other lcReturn = [anderes ] CASE oPrinter.PrinterStatus = 2 * // Unknown lcReturn = [unbekannt ] CASE oPrinter.PrinterStatus = 3 * // Idle lcReturn = [bereit ] CASE oPrinter.PrinterStatus = 4 * // Printing lcReturn = [druckt ] CASE oPrinter.PrinterStatus = 5 * // Warming Up lcReturn = [aufwärmen ] CASE oPrinter.PrinterStatus = 6 * // Stopped Printing lcReturn = [gestoppt ] CASE oPrinter.PrinterStatus = 7 * // Offline lcReturn = [Offline ] CASE oPrinter.PrinterStatus = 8 * // Paused lcReturn = [pausierend ] CASE oPrinter.PrinterStatus = 9 * // Error lcReturn = [Fehler ] CASE oPrinter.PrinterStatus = 10 * // Busy lcReturn = [beschäftigt ] CASE oPrinter.PrinterStatus = 11 * // Not Available lcReturn = [nicht verfügbar] CASE oPrinter.PrinterStatus = 12 * // Waiting lcReturn = [wartend ] CASE oPrinter.PrinterStatus = 13 * // Processing lcReturn = [verarbeiten ] CASE oPrinter.PrinterStatus = 14 * // Initialization lcReturn = [initialisieren ] CASE oPrinter.PrinterStatus = 15 * // Power Save lcReturn = [Stromsparmodus ] CASE oPrinter.PrinterStatus = 16 * // Pending Deletion lcReturn = [löscht Druckjob] CASE oPrinter.PrinterStatus = 17 * // I/O Active lcReturn = [E/A aktiv ] CASE oPrinter.PrinterStatus = 18 * // Manual Feed lcReturn = [manuelle Zufuhr] ENDCASE * // Die Liste ggf. nach Bedarf erweitern IF INLIST(oPrinter.PrinterStatus,1,9) lcReturn = lcReturn + GetDetectedErrorStateAsText(oPrinter.DetectedErrorState) ENDIF RETURN lcReturn ENDFUNC Regards MichS |
Follow us on