[color=blue]Option Explicit[/color]
 
[color=blue]Public[/color] CPUIndex [color=blue]As Long[/color]
[color=blue]Public[/color] Speed [color=blue]As String[/color]
[color=blue]Public[/color] Manufacturer [color=blue]As String[/color]

[color=blue]Option Explicit[/color]
 
 
[color=blue]Public Sub[/color] ShowCPUProperties()
 
  [color=blue]On Error Resume Next[/color]
 
  [color=darkgreen]' WMI-Objekte
  [color=blue]Dim[/color] objQuery  [color=blue]As Object[/color], objField _
    [color=blue]As Object[/color]
 
  [color=darkgreen]' Collection für CPU-Daten (es können ja mehrere CPU's _
    vorhanden sein)[/color]
  [color=blue]Dim[/color] mCol [color=blue]As[/color] Collection, Data _
  [color=blue]As[/color] CPUDatas
 
  [color=darkgreen]' Collection initialisieren
  [color=blue]Set[/color] mCol = [color=blue]New[/color] Collection
 
  [color=darkgreen]' WMI-Abfrage ausführen
  [color=blue]Set[/color] objQuery = GetObject( _
    "winmgmts:\\.\root\cimv2").ExecQuery( _
    "Select * from Win32_Processor")
 
  [color=darkgreen]' wenn irgendetwas gefunden wurde, dann weiter
  [color=blue]If[/color] [color=blue]Not[/color] objQuery [color=blue]Is _
    Nothing[/color] [color=blue]Then[/color]
 
    [color=darkgreen]' objQuery enthält für jede CPU einen Eintrag
    [color=blue]For Each[/color] objField [color=blue]In[/color] objQuery
 
      [color=darkgreen]' wenn Daten vorhanden, dann weiter
      [color=blue]If[/color] Trim(objField.CurrentClockSpeed) <> "" _
        [color=blue]Or[/color] Trim( _
        objField.Manufacturer) <> "" [color=blue]Then[/color]
 
        [color=darkgreen]' Data initialisieren bzw. neu machen
        [color=blue]Set[/color] Data = [color=blue]New[/color] CPUDatas
 
        [color=darkgreen]' Daten lesen
        [color=blue]With[/color] Data
          .CPUIndex = mCol.Count + 1
          .Speed = objField.CurrentClockSpeed & "MHz"
          .Manufacturer = objField.Manufacturer
        [color=blue]End With[/color]
 
        [color=darkgreen]' Data In Collection schreiben
        mCol.Add Data
 
      [color=blue]End If[/color]
 
    [color=blue]Next[/color]
 
  [color=blue]End If[/color]
 
  [color=darkgreen]' WMI-Objekte freigeben
  [color=blue]Set[/color] objField = [color=blue]Nothing[/color]
  [color=blue]Set[/color] objQuery = [color=blue]Nothing[/color]
 
  [color=darkgreen]' wenn nix gefunden wurde, dann Nachricht
  [color=blue]If[/color] mCol.Count = 0 [color=blue]Then[/color]
 
    MsgBox "Die Prozessordaten konnten nicht ermittelt werden."
 
  [color=blue]Else[/color]
 
    [color=darkgreen]' wurden Daten gefunden, dann ausgeben
    [color=blue]Dim[/color] I [color=blue]As Long[/color]
 
    [color=blue]For[/color] I = 1 [color=blue]To[/color] mCol.Count
      [color=blue]Set[/color] Data = mCol.Item(I)
 
      MsgBox "Hersteller: " & Data.Manufacturer & vbNewLine & "Taktfrequenz: " _
        & Data.Speed, , "Prozessor " & [color=blue]CStr[/color](Data.CPUIndex)
    [color=blue]Next[/color] I
 
  [color=blue]End If[/color]
 
  [color=darkgreen]' Collection freigeben
  [color=blue]Set[/color] Data = [color=blue]Nothing[/color]
  [color=blue]Set[/color] mCol = [color=blue]Nothing[/color]
 
[color=blue]End Sub[/color]

Viel Spass,
R@lf