Imports System
Imports System.Management
Imports System.Windows.Forms
 
Namespace WMISample
 
    Module xyz
        Sub Main()
 
            Try
                Dim searcher As New ManagementObjectSearcher( _
                    "root\CIMV2", _
                    "SELECT * FROM Win32_Printer")
 
                For Each queryObj As ManagementObject In searcher.Get()
 
                    Console.WriteLine("-----------------------------------")
                    Console.WriteLine("Win32_Printer instance")
                    Console.WriteLine("-----------------------------------")
 
                    If queryObj("CapabilityDescriptions") Is Nothing Then
                        Console.WriteLine("CapabilityDescriptions: {0}", _
                          queryObj("CapabilityDescriptions"))
                    Else
                        Dim arrCapabilityDescriptions As String()
                        arrCapabilityDescriptions = queryObj( _
                          "CapabilityDescriptions")
                        For Each arrValue As String In arrCapabilityDescriptions
                            Console.WriteLine("CapabilityDescriptions: {0}", _
                              arrValue)
                        Next
                    End If
                    Console.WriteLine("Caption: {0}", queryObj("Caption"))
                    Console.WriteLine("Comment: {0}", queryObj("Comment"))
                    Console.WriteLine("Default: {0}", queryObj("Default"))
                    Console.WriteLine("Description: {0}", queryObj( _
                      "Description"))
                    Console.WriteLine("DriverName: {0}", queryObj("DriverName"))
                    Console.WriteLine("Name: {0}", queryObj("Name"))
                    Console.WriteLine("PortName: {0}", queryObj("PortName"))
                Next
            Catch err As ManagementException
            End Try
 
            Console.ReadLine()
        End Sub
 
    End Module
End Namespace