0

インストール/追加されたプリンターを照会するこのコードに問題があります。

\.\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
4

0 に答える 0