كود
لقراءة رقم الهارد دسك
كود:
'ÇÓÊÎÏÇã ÇáãßÊÈÉ 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
توقيــع العضو كوران كركوكي |
|