Get Installed Printer List on Remote Machine

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

        Dim query As Management.ManagementObjectSearcher
        Dim queryCollection As Management.ManagementObjectCollection
        Dim management_object1 As Management.ManagementObject
        Dim msc As Management.ManagementScope

        If (strComputer = System.Environment.MachineName) Then
            msc = New Management.ManagementScope("\\" & strComputer & "\root\cimv2")
            Dim co As New Management.ConnectionOptions
            co.Username = strUserName
            co.Password = strPwd
            msc = New Management.ManagementScope("\\" & strComputer & "\root\cimv2", co)
        End If

        Dim query_command As String = "SELECT * FROM Win32_Printer"
        Dim select_query As Management.SelectQuery = New Management.SelectQuery(query_command)

            query = New Management.ManagementObjectSearcher(msc, select_query)
            queryCollection = query.Get()
            Dim strType As String = ""
            For Each management_object1 In queryCollection

                If (management_object1("Attributes") = 16) Then
                    strType = "Network"
                ElseIf (management_object1("Attributes") = 64) Then
                    strType = "Local"
                End If

                MessageBox.Show(management_object1("Name") & " Type:" & strType)
            Next management_object1
        Catch ex As Exception
        End Try

End Sub

Related Posts by Categories

Stumble This Fav This With Technorati Add To Digg This Add To Reddit Add To Facebook Add To Yahoo


Post a Comment