Dim WMISearcher As System.Management.ManagementObjectSearcher = New _
          ManagementObjectSearcher("SELECT * FROM Win32_Fan")
        Dim value As Object = Nothing
        For Each fan As ManagementObject In WMISearcher.Get
            For Each p As PropertyData In fan.Properties
                value = fan.Properties(p.Name).Value
                If value Is Nothing Then value = New String(" -- Nicht" & _
                  "ermittelbar --")
                Debug.WriteLine(String.Format("Einstellung ""{0}"" hat den" & _
                "Wert: ""{1}""", New Object() {p.Name, value}))
            Next
        Next