Пример 24

Set objDomain=GetObject("WinNT:")

For Each domain_element In objDomain

Domain_Name= domain_element.Name

Next

    Set PC_Name="_______"

    Set Share_Name="_______"

Set element=GetObject("WinNT://" & Domain_Name &"/" & PC_Name &"/" & Share_Name)

    flag=element.status

    MsgBox flag

Значение переменной flag будет выдано в десятичном виде, поэтому его необходимо перевести в шестнадцатеричную систему.

Чтение свойств заданий в очереди принтера

Очередь печати представляет собой массив, содержащий в себе задания, которые находятся в очереди печати на момент извлечения из нее данных с помощью протокола WinNT. Список и описание свойств параметров очереди см. в Приложении раздел PrintJob.

Пример 25. Чтения полей очереди

Set objDomain=GetObject("WinNT: ")

    For Each domain_element In objDomain

    Domain_Name= domain_element.Name

    Next

Shares_Name="Value"

    Set pq = GetObject("WinNT://" & Domain_Name & "/" & Shares_Name)

    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

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

Управление очередью печати

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

Таблица 7