كود
لقراءة رقم الهارد دسك


كود:
'ÇÓÊÎÏÇã ÇáãßÊÈÉ Microsoft Scripting Runtime
Private Sub Command1_Click()
Dim obj_FSO As Object, obj_Drive As Object
Set obj_FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Drive = obj_FSO.GetDrive("c:\")
MsgBox obj_Drive.SerialNumber
Set obj_FSO = Nothing
Set obj_Drive = Nothing
End Sub

عاشت ايدك يا وردة على الكود الكود تحت التجربة