'Class Win32_AssociatedProcessorMemory: CIM_AssociatedProcessorMemory
'{
'  Win32_CacheMemory ref Antecedent;
'  uint32 BusSpeed;
'  Win32_Processor ref Dependent;
'};
Private Sub Form_Load()
 
  Dim oWMI As Object
  Dim SQL As String
 
  ' Abfrage
  SQL = "SELECT * FROM Win32_AssociatedProcessorMemory"
 
  ' WMI-Objekt erstellen und Abfrage ausführen
  Set oWMI = GetObject("winmgmts:").ExecQuery(SQL)
 
  Debug.Print oWMI.BusSpeed
 
End Sub