پیدا کردن شماره سریال هارد Sata

[omidreza812]

سلام دوستان
کد زیر شماره سریال هارد
IDE رو نشون میده
ولی با هارد
SATA
کار نمی کنه
کسی می دونه چطوری باید اصلاحش کرد؟
تشکر

Dim physicalMedia AsNew Management.ManagementClass("Win32_PhysicalMedia")

ForEach physicalMedium As Management.ManagementObject In physicalMedia.GetInstances()

lbl1.Text = Trim(physicalMedium("SerialNumber"))

Next physicalMedium

[hesam_hma]

دوست عزیز من هارد ساتا دارم و با این کد هم جواب میده
البته فراموش نشه که :
Imports System.Management
و اضافکه کردن آن به References

[omidreza812]

دوست عزیز من هارد ساتا دارم و با این کد هم جواب میده
البته فراموش نشه که :
Imports System.Management
و اضافکه کردن آن به References

سلام
مرسی از اینکه پاسخ دادید
imports system.management رو هم add refrence کردم
ولی کار نمی کنه!!