[RaggiTech]

وهذا رد لأحد الإخوة wael_shehab حول كيفية قراءة رقم هارد من نوع ساتا - كان جديد وقتها والكود في بداية المقال عن هاردات IDE -

(فيما أعتقد اللى ممكن يلم الموضوع ده كله) سواء كان الهارد IDE OR SATA
و برضه مش هنكسف أخواننا العرب الحلوين من معرفة كمان سيريال ال BIOS - PROCESSOR - MACaddress
و أتمنى من ربنا سبحانة و تعالى إنه يعجبكم و على فكره أنا جربته كويس .
و ها هى الخطوات

1- قم بإنشاء مشروع من النوع WINDOWS APPLICATION
2- إحفظة كما تريد
3- قم بإنشاء COMMAND BUTTON سيبه زى ما هو أو سميه اللى إنتى عايزه
4- قم بإنشاء عدد أربعة LABEL - و أربعة TEXTBOXs مناظرة
5- قم بتسمية ال LABELS على الترتيب
HD SERIAL
MAC ADDRESS
PROCESSOR ID
BIOS ID
و قم بتسمية ال TEXTBOXs
TextBox1
TextBox2
TextBox3
TextBox4
يعنى يبهم زى ما هم بمعنى أصح
6-
إبدأ بكتبة الكود بعد إضافة ال Reference طبعا زى ما قال الأخ حازم طبعا

كود :

Imports System.Management

7- جوه الكود الخاص بال command button اللى إحنا عملناه إكتي الكود الآتى زى ما هو

كود :

Dim MOS_HD As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim mo_HD As ManagementObject
For Each mo_HD In MOS_HD.Get()
TextBox1.Text = mo_HD("Model").ToString()
Next
Dim MOS_MAC As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapter")
Dim mo_MAC As ManagementObject
For Each mo_MAC In MOS_MAC.Get()
TextBox2.Text = mo_MAC("MACAddress").ToString()
Next
Dim MOS_PR As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
Dim mo_PR As ManagementObject
For Each mo_PR In MOS_PR.Get()
TextBox3.Text = mo_PR("ProcessorId").ToString()
Next
Dim MOS_BIOS As New ManagementObjectSearcher("SELECT * FROM Win32_BIOS")
Dim mo_BIOS As ManagementObject
For Each mo_BIOS In MOS_BIOS.Get()
TextBox4.Text = mo_BIOS("Name").ToString()
Next