'引用Microsoft VMI s cripting 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 Form_Load()

 GetProcessorID

End Sub