读取CPU信息

'引用Microsoft WMI Scripting 1.1 Library
'在窗体上建一个Text，命名为Text1，并且
'Text1.MultiLine = True

Private Sub GetProcessorID()
  Dim a As SWbemServices
  Dim b As SWbemObjectSet
  Dim c As SWbemObject
  Dim d As SWbemPropertySet
  Dim e As SWbemProperty
  
  Set a = GetObject("winmgmts:")
  Set b = a.InstancesOf("Win32_Processor")
  For Each c In b
     With c
       If .Properties_.Count > 0 Then
         Set d = .Properties_
        
         For Each e In d
            Text1 = Text1 & e.Name & ":  " & e.Value & vbCrLf
         Next
       End If
     End With
  Next
End Sub

Private Sub Command1_Click()
Call GetProcessorID
End Sub