[المبرمج السعيد]

كود :

Dim value, Root_WMI, BaseHard, ThisObj As Object
        Root_WMI = GetObject("winmgmts:")
        BaseHard = Root_WMI.InstancesOf("Win32_PhysicalMedia")
        For Each ThisObj In BaseHard
            value = ThisObj.SerialNumber
            'حلقة تكرر في حال وجود أكثر من هارد
            ' "سنأخذ الرقم الهارد الأول
            Exit For
        Next
        MsgBox(value) 'سيخرج لك رقم الهارد مباشرة بإذن الله