'引用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
|