Dim cont As IADsContainer
Dim pq As IADsPrintQueue
On Error GoTo Cleanup
' Bind to the computer object
Set cont = GetObject("WinNT://fabrikam1,computer")
cont.Filter = Array("PrintQueue")
For Each p In cont
Set pq = GetObject(p.ADsPath)
MsgBox pq.Name & " is a " & pq.Model
Next p
Cleanup:
If (Err.Number<>0) Then
MsgBox("An error has occurred. " & Err.Number)
End If
Set cont = Nothing
Set pq = Nothing
#define global IID_IADsPrintQueue "{B15160D0-1226-11CF-A985-00AA006BC149}"
#usecom global IADsPrintQueue IID_IADsPrintQueue "{}"
#comfunc global IADsPrintQueue_get_PrinterPath 20 var
#comfunc global IADsPrintQueue_put_PrinterPath 21 wstr
#comfunc global IADsPrintQueue_get_Model 22 var
#comfunc global IADsPrintQueue_put_Model 23 wstr
#comfunc global IADsPrintQueue_get_Datatype 24 var
#comfunc global IADsPrintQueue_put_Datatype 25 wstr
#comfunc global IADsPrintQueue_get_PrintProcessor 26 var
#comfunc global IADsPrintQueue_put_PrintProcessor 27 wstr
#comfunc global IADsPrintQueue_get_Description 28 var
#comfunc global IADsPrintQueue_put_Description 29 wstr
#comfunc global IADsPrintQueue_get_Location 30 var
#comfunc global IADsPrintQueue_put_Location 31 wstr
#comfunc global IADsPrintQueue_get_StartTime 32 var
#comfunc global IADsPrintQueue_put_StartTime 33 double
#comfunc global IADsPrintQueue_get_UntilTime 34 var
#comfunc global IADsPrintQueue_put_UntilTime 35 double
#comfunc global IADsPrintQueue_get_DefaultJobPriority 36 var
#comfunc global IADsPrintQueue_put_DefaultJobPriority 37 int
#comfunc global IADsPrintQueue_get_Priority 38 var
#comfunc global IADsPrintQueue_put_Priority 39 int
#comfunc global IADsPrintQueue_get_BannerPage 40 var
#comfunc global IADsPrintQueue_put_BannerPage 41 wstr
#comfunc global IADsPrintQueue_get_PrintDevices 42 var
#comfunc global IADsPrintQueue_put_PrintDevices 43 int
#comfunc global IADsPrintQueue_get_NetAddresses 44 var
#comfunc global IADsPrintQueue_put_NetAddresses 45 int
; ※数字は vtbl インデックス(0始まり)。0/1/2 は IUnknown(QueryInterface/AddRef/Release)。
; ※このインターフェースは直接 CoCreateInstance するクラスIDが無いため "{}"(他メソッド/アクティベーションで取得)。
; ※出力/バッファ引数は var(変数直渡し)。varptr 方式にも切替可。
; ※IDispatch 実装。HSP では comobj 経由でメソッド名による呼び出しも可能(vtbl 不要)。#define global IID_IADsPrintQueue "{B15160D0-1226-11CF-A985-00AA006BC149}"
#usecom global IADsPrintQueue IID_IADsPrintQueue "{}"
#comfunc global IADsPrintQueue_get_PrinterPath 20 sptr
#comfunc global IADsPrintQueue_put_PrinterPath 21 wstr
#comfunc global IADsPrintQueue_get_Model 22 sptr
#comfunc global IADsPrintQueue_put_Model 23 wstr
#comfunc global IADsPrintQueue_get_Datatype 24 sptr
#comfunc global IADsPrintQueue_put_Datatype 25 wstr
#comfunc global IADsPrintQueue_get_PrintProcessor 26 sptr
#comfunc global IADsPrintQueue_put_PrintProcessor 27 wstr
#comfunc global IADsPrintQueue_get_Description 28 sptr
#comfunc global IADsPrintQueue_put_Description 29 wstr
#comfunc global IADsPrintQueue_get_Location 30 sptr
#comfunc global IADsPrintQueue_put_Location 31 wstr
#comfunc global IADsPrintQueue_get_StartTime 32 sptr
#comfunc global IADsPrintQueue_put_StartTime 33 double
#comfunc global IADsPrintQueue_get_UntilTime 34 sptr
#comfunc global IADsPrintQueue_put_UntilTime 35 double
#comfunc global IADsPrintQueue_get_DefaultJobPriority 36 sptr
#comfunc global IADsPrintQueue_put_DefaultJobPriority 37 int
#comfunc global IADsPrintQueue_get_Priority 38 sptr
#comfunc global IADsPrintQueue_put_Priority 39 int
#comfunc global IADsPrintQueue_get_BannerPage 40 sptr
#comfunc global IADsPrintQueue_put_BannerPage 41 wstr
#comfunc global IADsPrintQueue_get_PrintDevices 42 sptr
#comfunc global IADsPrintQueue_put_PrintDevices 43 int
#comfunc global IADsPrintQueue_get_NetAddresses 44 sptr
#comfunc global IADsPrintQueue_put_NetAddresses 45 int
; ※数字は vtbl インデックス(0始まり)。0/1/2 は IUnknown(QueryInterface/AddRef/Release)。
; ※このインターフェースは直接 CoCreateInstance するクラスIDが無いため "{}"(他メソッド/アクティベーションで取得)。
; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; ※IDispatch 実装。HSP では comobj 経由でメソッド名による呼び出しも可能(vtbl 不要)。