Как прочитать идентификатор системного процессора в VB6.0

Question

Может ли кто-нибудь помочь мне в извлечении идентификатора системного процессора в vb6.0 ,, Я использовал следующий код для извлечения, но только для ноутбука этот код может извлечь идентификатор процессора, но для рабочего стола он не может извлечь .... Код выглядит следующим образом ......................

---

Public Function MBSerialNumber() As String

'RETRIEVES SERIAL NUMBER OF MOTHERBOARD
'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL
'NUMBERS WILL BE DELIMITED BY COMMAS

'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO
'Microsoft WMI Scripting Library IS REQUIRED

Dim objs As Object

Dim obj As Object
Dim WMI As Object



Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
'Set objs = WMI.InstancesOf(WindowState)
For Each obj In objs
procid = procid & obj.SerialNumber
If procid < objs.Count Then procid = procid & ","
Next
MBSerialNumber = procid
procid = LTrim$(procid)
procid = RTrim$(procid)
MsgBox "Proc_id :" + procid
End Function

---

P LZ отправить решение на мой почтовый идентификатор ----> imtiyaz@digitalfactors.in

Answer 1

Ваш код извлекает серийный номер материнской платы, а не идентификатор процессора. Используйте Win32_Processor вместо Win32_BaseBoard.

См. Этот код VBScript:

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")

For Each objItem in colItems
    Wscript.Echo "Caption: " & objitem.Caption
    Wscript.Echo "CPU ID: " & objItem.ProcessorId    
Next

Будет производить:

C: \ wmi> wmicpu.vbs Microsoft (R) Windows Script Host версии 5.7 Авторское право (C) Microsoft Corporation. Все права защищены.

Заголовок: x86 Family 6 Model 15 Stepping 6
Идентификатор процессора: BFEBFBFF000006F6

Дополнительные поля см. В этом Ссылка MSDN