Try
            Dim searcher As New ManagementObjectSearcher( _
                "root\CIMV2", _
                "SELECT * FROM Win32_Printer WHERE Network = True")
 
            For Each NetPrinter As ManagementObject In searcher.Get()
                MsgBox(NetPrinter.Path.ToString)
            Next
        Catch err As ManagementException
            MsgBox(err.Message)
        End Try