que loco si el link lo buscas en google y accedes or medio de este puedes ver la respuesta, si lo accedes directo no deja
te pego lo comentado alli como respuesta
If you now how to write VBscripts, here's a few code snippets that will help you with Printers:
http://www.activxperts.com/activmonitor/windowsmanagement/adminscripts/printing/servers/#PausePrintJobs.htm
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrintJobs = objWMIService.ExecQuery _
("Select * from Win32_PrintJob")
For Each objPrintJob in colPrintJobs
objPrintJob.Pause 'Pauses All jobs in the collection
objPrintJob.Resume 'Resumes all jobs in the collection
Next
Or something like this?
strComputer = "." replace . with dns name or IP of print server or leave if script is running on the print server
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPrintJobs = objWMIService.ExecQuery _
("Select * from Win32_PrintJob")
For Each objPrintJob in colPrintJobs
objPrintJob.pause
If checkSomething(test) = True Then
objPrintJob.Resume
Else
objPrintJob.Cancel
End if
Next
Function checkSomething(ByVal test)
'check something
If test.something = someValue Then
checkPrintJob = True
Else
checkPrintJob = False
End Function
Set objWMIService = Nothing
Set colPrintJobs = Nothing
Wscript.Quit
igualmente recuerda que esto seria una guia, para llevar la idea a codigo vb.net con el segundo link
la finalidad es ver como se realiza la query de WMI para trabajar con las impresora
saludos
Leandro Tuttini
Blog
Buenos Aires
Argentina
