Пример, в котором читаются поля и выводятся на экран (ASP):

Set pq = GetObject("WinNT://" & server_name & "/" & shares_enum)

For Each printJob In pq.PrintJobs

status_pre=printJob.status

select case status_pre

case "0" status_="Нормально"

case "1" status_="Пауза"

case "18" status_="Ошибка"

end select

number_docum=number_docum

summary = summary & "Номер докумета: " & number_docum & chr(13) & chr(13) & "Статус: " & status_pre & chr(13) & "Приоритет: " & printJob.Description & chr(13) & "Пользователь: " & printJob.User & chr(13) & "Всего стр. " & printJob.TotalPages & chr(13) & "Размер, (Mb) " & round(printJob.Size/1000000,2) & chr(13) & "Статус: " & status_pre & chr(13) & chr(13)

Next

Wscript.Echo summary

Управление очередью осуществляется тем же способом, что и управление принтером. Существует три команды, которые могут быть использованы для управления документом, находящимся в очереди печати:

Пример, в котором удаляется второе задание из очереди печати. Если такого нет, то ошибка обрабатывается с помощью выражения «On Error Resume Next» (VBScript):

On Error Resume Next

Set pq = GetObject("WinNT://" & server_name & "/" & shares_enum)

For Each printJob In pq.PrintJobs

If (number_docum=2) then

printJob.remove

end if

number_docum=number_docum