测试了一下,已经搞定了! 添加一个文本框和一个按钮 在按钮的click事件中添加下列代码 之前需要在COM中引入一个 Microsoft WMI Scripting V1.2 Library代码如下: Dim oWMINameSpace 'As SWbemServices Dim ObjSet As Object Dim Obj As Object oWMINameSpace = GetObject("winmgmts:") ObjSet = oWMINameSpace.InstancesOf("Win32_Processor") For Each Obj In ObjSet Me.TextBox1.Text = Obj.Caption Me.TextBox2.Text = Obj.ProcessorId Next但是在2000上试了一下,CPU的编号(Obj.ProcessorId)始终娶不出来! 谁可一个解释一下?
添加一个文本框和一个按钮
在按钮的click事件中添加下列代码
之前需要在COM中引入一个
Microsoft WMI Scripting V1.2 Library代码如下:
Dim oWMINameSpace 'As SWbemServices
Dim ObjSet As Object
Dim Obj As Object oWMINameSpace = GetObject("winmgmts:")
ObjSet = oWMINameSpace.InstancesOf("Win32_Processor") For Each Obj In ObjSet
Me.TextBox1.Text = Obj.Caption
Me.TextBox2.Text = Obj.ProcessorId Next但是在2000上试了一下,CPU的编号(Obj.ProcessorId)始终娶不出来!
谁可一个解释一下?