K Ken Tucker [MVP] Oct 1, 2004 #2 Hi, Use the wmi for that. ' Add a Reference to System.Management Dim moReturn As Management.ManagementObjectCollection Dim moSearch As Management.ManagementObjectSearcher Dim mo As Management.ManagementObject moSearch = New Management.ManagementObjectSearcher("Select * from Win32_Printer") moReturn = moSearch.Get For Each mo In moReturn Dim strOut As String strOut = String.Format("{0} - Driver {1}", mo("Name"), mo("DriverName")) Trace.WriteLine(strOut) Next Ken
Hi, Use the wmi for that. ' Add a Reference to System.Management Dim moReturn As Management.ManagementObjectCollection Dim moSearch As Management.ManagementObjectSearcher Dim mo As Management.ManagementObject moSearch = New Management.ManagementObjectSearcher("Select * from Win32_Printer") moReturn = moSearch.Get For Each mo In moReturn Dim strOut As String strOut = String.Format("{0} - Driver {1}", mo("Name"), mo("DriverName")) Trace.WriteLine(strOut) Next Ken