Imports System.Management Dim query As ManagementObjectSearcher Dim queryCollection As ManagementObjectCollection Dim _classname As String = "SELECT * FROM Win32_Printer" Dim mo_def As ManagementObject query = New ManagementObjectSearcher(_classname) queryCollection = query.Get() For Each mo As ManagementObject In queryCollection If String.Compare(mo("Name").ToString(), "Fax") = 0 Then mo.InvokeMethod("SetDefaultPrinter", Nothing) mo_def = mo Exit For End If Next