インストール/追加されたプリンターを照会するこのコードに問題があります。
\.\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