Show Print Jobs older than 15 minutes

[ejensen]

this one will run script against a computer and show any printer queues with jobs older than 15 minutes.
Action:

cmd.exe /K cscript \\SERVER\SHARE\show_print_queues_time.vbs {computer}

VBscript file:

Const USE_LOCAL_TIME = True
Set DateTime = CreateObject("WbemScripting.SWbemDateTime")
strComputer = Wscript.Arguments.Item(0)
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_PrintJob")
Wscript.Echo "Print Queue" & vbTab & "Job ID" & vbTab & "Submitted" & vbTab & "Total Pages"
For Each objPrinter in colInstalledPrinters
    DateTime.Value = objPrinter.TimeSubmitted
    dtmActualTime = DateTime.GetVarDate(USE_LOCAL_TIME)
    TimeinQueue = DateDiff("n", actualTime, Now)
    If TimeinQueue > 15 Then
        strPrinterName = Split(objPrinter.Name,",",-1,1)
        Wscript.Echo strPrinterName(0) & vbtab & vbTab & objPrinter.JobID & vbTab & dtmActualTime & vbTab & objPrinter.TotalPages
    End If
Next

[Anonymous]

oops, better thinking this erases all the queue jobs! I will have to recheck the code 😉

[Anonymous]

Hello! Just sharing the code, finally I could do this although the code may not look great, it works! 😉
Just change PrintServerName with your Windows print server. Adjust the TimeinQueue to fit your needs and it will keep the queue jobs clean if you schedule it on the server.

Const USE_LOCAL_TIME = True
Set DateTime = CreateObject("WbemScripting.SWbemDateTime")
strComputer = "PrintServerName"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_PrintJob")
Wscript.Echo "Print Queue" & vbTab & "Job ID" & vbTab & "Submitted" & vbTab & "Total Pages"
For Each objPrinter in colInstalledPrinters
    DateTime.Value = objPrinter.TimeSubmitted
    dtmActualTime = DateTime.GetVarDate(USE_LOCAL_TIME)
    TimeinQueue = DateDiff("n", dtmactualTime, Now)
    If TimeinQueue > 1440 Then
        strPrinterName = Split(objPrinter.Name,",",-1,1)
        Wscript.Echo strPrinterName(0) & vbtab & vbTab & objPrinter.JobID & vbTab & dtmActualTime & vbTab & objPrinter.TotalPages
		Set objWMIService1 = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
		Set colInstalledPrinters1 =  objWMIService.ExecQuery _
		("Select * from Win32_Printer Where Name = '" & strPrinterName(0) & "'")  
		For Each objPrinter1 in colInstalledPrinters1
			objPrinter1.CancelAllJobs()
		Next
    End If
Next

Thank you for the sample code ejersen!

[ejensen]

I do have a script to do that, but you have to specify the printer name.
Not sure how to tie this into LS yet... working on my first cup of coffee still. 🙂
Would probably need to be tied into an HTA that can read all the print queues on a server name that is passed as a variable from LS.

I will see what i can put together today if I have some time.

Here is the vbscript code:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'HP QuietJet'")
For Each objPrinter in colInstalledPrinters
    objPrinter.CancelAllJobs()
Next

[Anonymous]

Nice! You seem to have some nice ideas, I was thinking about something similar and I wanted something a step further... I need something to erase older than X time jobs from the print server, because sometimes users send print jobs to offline printers and when they turn them on, they get the old jobs printed. Until now I had no time to investigate further, there are some utilities that seem to help on that but...