VB取硬件信息

1.读取CPU的ID号

'第一种读取CPU的方法
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub GetCPUID()
    Dim Buffer$
    Dim Computer$, CPUs As Object, Mycpu As Object
    Buffer$ = String$(255, 0)
    GetComputerName Buffer$, 256
    Computer = Left$(Buffer$, InStr(1, Buffer$, Chr$(0)) - 1)
    Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        Computer & "\root\cimv2").ExecQuery("select * from Win32_Processor")
    For Each Mycpu In CPUs
        Text1.Text = Mycpu.ProcessorID
    Next
End Sub

'第二种读取CPU的方法
Sub GetCPUID()
    Dim CPUID, strComputer As String
    Dim objWMIService, colDevices, objDevice
    strComputer = "."
    On Error Resume Next
    Set objWMIService = GetObject("winmgmts:\\" & strComputer)
    Set colDevices = objWMIService.ExecQuery _
   ("Select * From Win32_Processor")
    For Each objDevice In colDevices
      CPUID = objDevice.ProcessorID
    Next
    Text2.Text = CPUID
End Sub