Private Sub GetInstalledPrinters()
 
  Dim swTemp As New System.IO.StreamWriter("C:\Drucker.dat", False)
 
  Try
 
    Dim moS As ManagementObjectSearcher = New _
      Management.ManagementObjectSearcher("Select * from Win32_Printer")
    Dim moC As System.Management.ManagementObjectCollection = moS.Get
 
      For Each moTemp As ManagementObject In moC
        swTemp.WriteLine("Anfang")
        swTemp.WriteLine("Properties")
 
        For Each pcTemp As PropertyData In moTemp.Properties
          If Not pcTemp.Value Is Nothing AndAlso pcTemp.Value.ToString <> "" Then
            swTemp.WriteLine(pcTemp.Name & " = " & pcTemp.Value.ToString)
          Else
            swTemp.WriteLine(pcTemp.Name & " = <not set>")
          End If
 
        Next
 
        swTemp.WriteLine("SystemProperties")
 
        For Each pcTemp As PropertyData In moTemp.SystemProperties
          If Not pcTemp.Value Is Nothing AndAlso pcTemp.Value.ToString <> "" Then
            swTemp.WriteLine(pcTemp.Name & " = " & pcTemp.Value.ToString)
          Else
            swTemp.WriteLine(pcTemp.Name & " = <not set>")
          End If
 
        Next
 
        swTemp.WriteLine("Ende")
        swTemp.WriteLine("-------------------------------------------")
 
      Next
 
    Catch ex As Exception
 
  Finally
 
    swTemp.Close()
    swTemp.Dispose()
 
  End Try
 
End Sub

Die Zeit ist der größte Feind des Menschen.