我在使用此代码查询安装/添加的打印机时遇到问题。
如果我把\。\ root \ CIMV2 \它工作并列出本地添加的打印机和本地添加的网络打印机。
如果我输入一个计算机名称,它只列出本地添加的打印机,但没有列出添加到计算机的共享网络打印机。为什么会发生这种情况?如何解决?
Private Sub DoShowPrinters(Computer)
Try
Dim searcher As New ManagementObjectSearcher("\\" & Computer & "\root\CIMV2", "SELECT DeviceID FROM Win32_Printer")
For Each queryObj As ManagementObject In searcher.Get()
ListBox1.Items.Add(queryObj("DeviceID").ToString())
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while querying for printer data: " & err.Message)
End Try
End Sub