المشاركات : 190
المواضيع 48
الإنتساب : Sep 2013
السمعة :
5
الشكر: 196
تم شكره 219 مرات في 82 مشاركات
منقول
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
المشاركات : 33
المواضيع 10
الإنتساب : May 2013
السمعة :
0
الشكر: 0
تم شكره 170 مرات في 4 مشاركات
يسلموووووووووووووووووووووووو ايديك يا محترم من فلسطين احييك