بدست آوردن سریال CPU

[edifier]

با سلام
برای پیدا کردن روش بدست آوردن سریال CPU در VB خیلی جستجو کردم.
مطالب و کدهای زیادی وجود داره. اما همه یه مشکلی دارن.
مثلا یه OCX گفتم به نام HardwareInfo که به راحتی سریال CPU میده.برنامه کامپایل نشده رو روی سیستم های زیادی تست کردم و نتایج کاملا متفاوتی داشت. ولی وقتی برنامه رو کامپایل میکنی و فایل exe رو روی سیستم های دیگر میبری ، سریال CPU ای رو نشون میده که روی اون کامپایل شده.
انگار تو حافظه اش سریال ذخیره میشه.
برای حل مشکل این روش یا ارائه یک روش جدید شدیدا به کمکتون احتیاج دارم.
ممنون

[1120]

سلام.

به هیچ وجه به این اکتیو ایکس چرت اطمینان نکن .

[pashmaloo]

بهترین کار به نظر من استفاده از wmi هست . حداقلش اینه که استاندارده و مشکلهای اینجوری نداره .

کد زیر را در یک فایل vbs ذخیره کنید و فایل را اجرا کنید تا نتیجه را ببینید !

کد php:

Sub ListProcessorProperties( strComputer )

 Dim objWMIService, colItems
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
 
For Each objItem In colItems

 
Wscript.Echo "ProcessorId: " & objItem.ProcessorId
 
Next
End Sub

Dim strComputer


Do
strComputer = inputbox( "Please enter a computername or . For local computer", "Input" )
Loop until strComputer <> ""

ListProcessorProperties( strComputer )