بدست آوردن سریال کلیه قطعات و دیوایس های سیستم

[saghari]

با سلام و احترام
چون دیدم بارها سوالهای مختلفی برای بدست آوردن سریال و یا سایر مشخصات قطعات سیستم مثل هارد، cpu و ... مطرح میشه، این کد رو برای استفاده عزیزان گذاشتم.
با استفاده از کد زیر شما میتوانید مشخصات اغلب قسمت های سیستم رو بدست آورید.
موفق باشید

[saghari]

با سلام
لازم به توضیح که بر حسب نیاز میتونید با تغییر کوچکی در کد ، مشخصات یک مورد خاص رو بدست بیارید. مثلا برای گرفتن سریال cpu کد زیر رو جایگزین کنید.

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
Dim Get_Mainboard_Info As String = ""
Dim search As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim info As ManagementObject
For Each info In search.Get()
MsgBox(info("ProcessorId"))
Next
End Sub

موفق باشید