پيدا كردن شماره سريال هارد Sata

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

کد:

---

Dim physicalMedia AsNew Management.ManagementClass("Win32_PhysicalMedia")
ForEach physicalMedium As Management.ManagementObject In physicalMedia.GetInstances()
lbl1.Text = Trim(physicalMedium("SerialNumber"))
Next physicalMedium


---

اینجا رو ببین:

کد:

---

http://www.codeproject.com/useritems/DriveInfoEx.asp?df=100&forumid=371167&exp=0&select=2054254#xx2054254xx

---

کد:

---

http://www.codeproject.com/useritems/DriveInfoEx.asp?df=100&forumid=371167&exp=0&select=2054254#xx2054254xx

---

مثل اینکه برا sata مشکلی نداره.