السلام عليكم أعضاء المنتدي الكرام
محتاج كود اكسس 2010 لعرض سيريال الهارد الحقيقي الثابت الذي لا يتغير حتي لو عملنا فورمات للهارد
جربت برامج كتير موجوده اكسس ولكن دون جدوي لايظهر الرقم الحقيقي
جزاكم الله كل خير
Dim WMI As Object
Dim wmiCollection As Object
Dim wmiMember As Object
Set WMI = GetObject("winmgmts:\\")
Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia")
For Each wmiMember In wmiCollection
MsgBox Trim(wmiMember.SerialNumber)
Exit For
Next
Set wmiMember = Nothing
Set wmiCollection = Nothing
Set WMI = Nothing
جرب ان تغيره