omidreza812
شنبه 13 مرداد 1386, 20:28 عصر
سلام دوستان
کد زیر شماره سریال هارد
IDE رو نشون میده
ولی با هارد
SATA
کار نمی کنه
کسی می دونه چطوری باید اصلاحش کرد؟
تشکر
Dim physicalMedia AsNew Management.ManagementClass("Win32_PhysicalMedia")
ForEach physicalMedium As Management.ManagementObject In physicalMedia.GetInstances()
lbl1.Text = Trim(physicalMedium("SerialNumber"))
Next physicalMedium
کد زیر شماره سریال هارد
IDE رو نشون میده
ولی با هارد
SATA
کار نمی کنه
کسی می دونه چطوری باید اصلاحش کرد؟
تشکر
Dim physicalMedia AsNew Management.ManagementClass("Win32_PhysicalMedia")
ForEach physicalMedium As Management.ManagementObject In physicalMedia.GetInstances()
lbl1.Text = Trim(physicalMedium("SerialNumber"))
Next physicalMedium