【VB】获取CPU ID

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
        Me.Caption = CPUID
    Next