请问：用VB怎么能实现读取CPU序列号

请教：用VB如何能实现读取CPU序列号？
需要用VB读取CPU序列号、或者硬盘的物理序号（唯一不变的）来实现程序的使用范围？请高手指点，或者附上源码。感谢！！

[解决办法]
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
Print "Processor Id: " & objItem.ProcessorId
Next
[解决办法]
http://download.csdn.net/source/2119050
[解决办法]
Private Sub Command1_Click()
MsgBox GetCpu
End Sub

Public Function GetCpu() As String
On Error Resume Next
Dim TmpCode$
Dim ObjWMIService As Object, objItem As Object, colItems As Object
Set ObjWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = ObjWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
TmpCode = TmpCode & " " & objItem.ProcessorId
Next
GetCpu = Trim(TmpCode)
End Function

[解决办法]

VB code

Set ObjWMIService = GetObject("winmgmts:\\.\root\cimv2")  Set colItems = ObjWMIService.ExecQuery("Select * from Win32_Processor", , 48)'这两句不用这么麻烦 set wmi=GetObject("winmgmts:\\") set cpus=wmi.InstancesOf("win32_processorID")