س : الرقم التسلسلي للأسطوانة

يمكن لكن لن يفيد في حماية البرامج من السرقة لأن النيرو او اي برامج نسخ تعمل كوبي حتى للسيريال تاع الاسطوانة

إذا كنت ترغب بالحصول على الرقم التسلسلي للقرص الصلب الخاص بالشركة المصنعة

Dim HDinformation As New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
Dim HD As ManagementObject
For Each HD In HDinformation.Get()
 MsgBox(HD("SerialNumber").ToString())
Next

بس رح تحتاج الاستيراد

Imports System.Management

وهذا لايتغير إلا بتغيير القرص الصلب نفسه

وإن كنت تريد الرقم التسلسلي للقسم C مثلا

		Dim DriveLetter As String = "c:"
		Dim Query As String = "Select * from Win32_LogicalDisk WHERE DeviceID = '" & DriveLetter & "'"
		Dim colDisks As New ManagementObjectSearcher(Query)
		For Each objDisk As ManagementObject In colDisks.Get
			MsgBox(objDisk("VolumeSerialNumber"))
		Next

وهذا الذي يتحدث عنه الأخ jooorj أنه يمكن نسخه

بارك الله فيك مشرفنا الجميل