Skip to main content

Get Installed Printer on Netwrok 

Public Sub NetworkInstalledPrinter(ByVal strComputer As String, ByVal strUserName As String, ByVal strPwd As String)

        Try
            Dim Query As Management.ObjectQuery = New System.Management.ObjectQuery("SELECT * FROM Win32_Printer")
            Dim moSearcher As Management.ManagementObjectSearcher = New System.Management.ManagementObjectSearcher(Query)
            Dim moc As Management.ManagementObjectCollection = moSearcher.Get()

            For Each mo As Management.ManagementObject In moc

                Dim Pdc As Management.PropertyDataCollection = mo.Properties

                For Each pd As Management.PropertyData In Pdc
                    Try
                        If (CType(mo("Network"), Boolean)) Then
                            Dim strName As String
                            strName = CType(mo(pd.Name), String)

                            If (strName.StartsWith("\\")) Then
                                MessageBox.Show(strName)
                            End If

                        End If
                    Catch ex As Exception
                        Continue For
                    End Try

                Next
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        
End Sub

Popular posts from this blog

GridView Paging and Sorting

Introduction Paging and Sorting are most commonly used features of ASP.Net GridView. And it is very easy to implement in GridView with small lines of code. Here I am going to demonstrate how to use Paging and Sorting in GridView for better use of data display.
Read more

Ping Network Computer in VB.Net

"Ping" is very basic utility for every network programmer. Here we will discuss ping a computer in Network using VB.Net. We have two methods for pinging a computer. Method 1: Here we will use VB.Net NetworkInformation NameSpace. Public Sub PingStatus(ByVal strComputer As String) Dim pingSender As Ping = New Ping() Dim options As PingOptions = New PingOptions() options.DontFragment = True 'Create a buffer of 32 bytes of data to be transmitted Dim data As String = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" Dim buffer As Byte() = Encoding.ASCII.GetBytes(data) Dim timeout As Integer = 120 Dim reply As PingReply = pingSender.Send(strComputer, timeout, buffer, options) If (reply.Status = IPStatus.Success) Then MessageBox.Show("Ping Successed.") Else MessageBox.Show("Ping Faild.") End If End Sub Method 2: Here we are using .Net inbuil...
Read more