Druckjob Owner -> ADS Email

  • VBScript

    Druckjob Owner -> ADS Email

    Hallo,

    ich stecke grad etwas fest. ich möchte den Owner eines Druckjobs auf einem bestimmten Drucker auslesen und von diesem dann per AD Abfrage dann die dort hinterlegte Emailadresse auslesen.

    mit diesem Script kann ich zwar alle Warteschlangen abfragen, stelle mich aber etwas zu doof an das nur auf eine bestimmte zu ändern.

    Visual Basic-Quellcode

    1. strComputer = "."
    2. Set objWMIService = GetObject("winmgmts:" _
    3. & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    4. Set objPrinter = objWMIService.Get _
    5. ("Win32_Printer.DeviceID='PDFCreator'")
    6. Set colPrintJobs = objWMIService.ExecQuery _
    7. ("Select * from Win32_PrintJob")
    8. For Each objPrintJob in colPrintJobs
    9. Wscript.Echo "Print Queue, Job ID, Owner, Total Pages"
    10. strPrinter = Split(objPrintJob.Name,",",-1,1)
    11. Wscript.Echo strPrinter(0) & ", " & _
    12. objPrintJob.JobID & ", " & objPrintJob.Owner & ", " _
    13. & objPrintJob.TotalPages
    14. Next


    Danach soll dann objPrintJob.Owner an die Ad abfrage übergeben werden. ich steh da grade etwas auf dem Schlauch...

    vielen Dank + Gruß
    Cornulio

Facebook
Telefonspende