VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/10/10(Tue) 13:55 |
| 投稿者 | ： 蒼月 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: プリンタの各種監視について |
魔界の仮面弁士 さんに教えて頂いた方法を使ってみたのですが、ちょっとおかしな部分が出てきて
しまったので、質問させてください。
Win32_Printer クラスについて調べ、まずはプリンタ名の列挙をしてみようと思い、以下のコード
を実行しました。
Private Sub Command1_Click()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer", , 48)
For Each objItem In colItems
Label1(0).Caption = "Name: " & objItem.Name
Label1(1).Caption = "Name: " & objItem.Name
Label1(2).Caption = "Name: " & objItem.Name
Label1(3).Caption = "Name: " & objItem.Name
Label1(4).Caption = "Name: " & objItem.Name
Next
End Sub
自分の考えになってしまいますが、予定では接続されている(印刷が可能になっている)プリンタ名
が列挙されるはずだったのですが、全て同じプリンタ名が出力されてしまいます。
これは、何が原因なのでしょうか？(クエリ式がおかしい？)
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）