[ims.ataya]

Hard Disk Serial كيف أعرف سيريال الهاردسك الخاصي بي او الرقم التسلسلي ؟

[tarek]

منقول
Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each dvs As ManagementObject In hd.Get()
Dim serial As String = dvs("SerialNumber").ToString()
TextBox1.Text = serial
Next

[ims.ataya]

يسلموووووووووووووووووووووووو ايديك يا محترم من فلسطين احييك

[mustafa shaker22]

(21-04-15, 07:40 PM)tarek كتب : منقول
Dim hd As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each dvs As ManagementObject In hd.Get()
Dim serial As String = dvs("SerialNumber").ToString()
TextBox1.Text = serial
Next

بيظهر عندي الخطأ دا 
Error 1 Class 'Phone_Shop.ManagementObject' cannot be indexed because it has no default property. F:\projects\server\New folder\developer\saly\New folder\Phone Shop\Phone Shop\Form1.vb 15 36 Phone Shop

ايه الحل