معرفة سيريال الهارد الحقيقي والمعلج واللوحة الأم

hosslom · مارس 27, 2017

السلام عليكم أعضاء المنتدي الكرام

محتاج كود اكسس 2010 لعرض سيريال الهارد الحقيقي الثابت الذي لا يتغير حتي لو عملنا فورمات للهارد

جربت برامج كتير موجوده اكسس ولكن دون جدوي لايظهر الرقم الحقيقي

جزاكم الله كل خير

تم تعديل مارس 29, 2017 بواسطه ابوخليل
تعديل العنوان

**Shivan Rekany** · مارس 27, 2017

7 دقائق مضت, hosslom said:

السلام عليكم أعضاء المنتدي الكرام

محتاج كود اكسس 2010 لعرض سيريال الهارد الحقيقي الثابت الذي لا يتغير حتي لو عملنا فورمات للهارد

جربت برامج كتير موجوده اكسس ولكن دون جدوي لايظهر الرقم الحقيقي

جزاكم الله كل خير

اليك هذا الرابط لعل تستفيد منه

hosslom · مارس 27, 2017

لقد اطلعت علي المثال الموجود في الرابط ولكنه يعرض السيريال للدرايف وهو يتغير مع الفورمات للهارد

**Shivan Rekany** · مارس 27, 2017

 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

تم تعديل مارس 27, 2017 بواسطه Shivan Rekany

hosslom · مارس 27, 2017

نعم اخي هذا الكود يعرض السيريال للدرايف وليس السيريال الحقيقي للهارد

**Shivan Rekany** · مارس 27, 2017

   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

جرب ان تغيره

**sandanet** · مارس 27, 2017

أخي شفان كود ممتاز 100% تمت تجربته بنجاح

**sandanet** · مارس 28, 2017

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

**Ahmed.IQ** · مارس 28, 2017

طيب سؤال لو فرضنا ان الهارد تعطب بهذه الحالة كيف راح نتاكد ان العميل صادق والهارد حقيقي تعطب ويحتاج نفعلة برنامج ثاني بدون مقابل؟

**Shivan Rekany** · مارس 28, 2017

12 ساعات مضت, sandanet said:

أخي شفان كود ممتاز 100% تمت تجربته بنجاح

للامانه‌ العلميه‌ الكود ليس لي بل لاستاذتنا ( زهرة عبدالله ) في منتدى فريق العربي للبرمجة

51 دقائق مضت, Ahmed.IQ said:

طيب سؤال لو فرضنا ان الهارد تعطب بهذه الحالة كيف راح نتاكد ان العميل صادق والهارد حقيقي تعطب ويحتاج نفعلة برنامج ثاني بدون مقابل؟

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

تم تعديل مارس 28, 2017 بواسطه Shivan Rekany

**Shivan Rekany** · مارس 28, 2017

12 ساعات مضت, sandanet said:

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

اتفضل
هذا الكود بيعطيك سريال نمبر لمزربورد

Const Arr = 1
Public Function GetPCInfo()
'You need to have Microsoft WMI Scripting v2.1 library Registered in your references
DoCmd.Hourglass True

  Dim SWbemSet(Arr) As SWbemObjectSet
  Dim SWbemObj As SWbemObject
  Dim varObjectToId(Arr) As String
  Dim varSerial(Arr) As String
  Dim i, j As Integer
  Dim fld As String
  
  On Error Resume Next
  varObjectToId(1) = "Win32_BaseBoard,SerialNumber"
  For i = 0 To Arr
    Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0))
    varSerial(i) = ""
    For Each SWbemObj In SWbemSet(i)
      varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value
      varSerial(i) = Trim(varSerial(i))
      If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value"
    Next
        fld = "Text" & i
        Forms("form2")(fld) = varSerial(i)
  Next
  DoCmd.Hourglass False
End Function

خذت من موقع اجنبي
وغدا ان شاء الله راح ارفع لك نموذج على ذلك تحياتي

**sandanet** · مارس 29, 2017

شكراً لك أخي شفان انتظر منك مثال وارجو ان يكون عندك كود للمعالج ايضاً

تحياتي

**Shivan Rekany** · مارس 29, 2017

2 ساعات مضت, sandanet said:

شكراً لك أخي شفان انتظر منك مثال وارجو ان يكون عندك كود للمعالج ايضاً

تحياتي

عندي
انتظرني سارفق قاعده‌ لكي يعطي كلا من سريال نمبر للمعالج ولوحه‌ الام

تم تعديل مارس 29, 2017 بواسطه Shivan Rekany

**Shivan Rekany** · مارس 29, 2017

6 ساعات مضت, sandanet said:

شكراً لك أخي شفان انتظر منك مثال وارجو ان يكون عندك كود للمعالج ايضاً

تحياتي

* ملحوظة : انا خذت الكود في موقع اجنبي

في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library

الصق هذا الكود في وحدة نمطية

Option Compare Database
Option Explicit
Const Arr = 2
Public Function GetPcSnCpuAndMotherboard()
' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة
DoCmd.Hourglass True
  Dim SWbemSet(Arr) As SWbemObjectSet
  Dim SWbemObj As SWbemObject
  Dim varObjectToId(Arr) As String
  Dim varSerial(Arr) As String
  Dim i, j As Integer
  Dim fld As String
  
  On Error Resume Next
  varObjectToId(1) = "Win32_BaseBoard,SerialNumber"
  varObjectToId(2) = "Win32_Processor,ProcessorId"
  For i = 1 To Arr
    Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0))
    varSerial(i) = ""
    For Each SWbemObj In SWbemSet(i)
      varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value
      varSerial(i) = Trim(varSerial(i))
      If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value"
    Next
        fld = "Text" & i
        Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك
  Next
  DoCmd.Hourglass False
End Function

وفي النموذج في اي حدث تريد
مثلا عند تحميل او عند الضغط على كليك مثلا
اكتب في محرر فيجوال هذا

Call GetPcSnCpuAndMotherboard

ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده‌ نمطية

===============

واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية
اليك هذا

Private Sub Form_Load()
' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة
  Dim varObjectToId As String
  Dim varSerial As String
  On Error Resume Next
  varObjectToId = "Win32_BaseBoard,SerialNumber"
' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه
  'varObjectToId = "Win32_Processor,ProcessorId"
    Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0))
    varSerial = ""
    For Each SWbemObj In SWbemSet
      varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1))
      varSerial = Trim(varSerial)
      If Len(varSerial) < 1 Then varSerial = "Unknown value"
    Next
             Me.Text1 = varSerial
End Sub

واخيرا اتفضل مع قاعدة بيانات بها الطريقتين

لمعرفة سريال نمبر المعالج واللوحة الأم.rar

**sandanet** · مارس 31, 2017

بارك الله فيك اخي شافان والله انك مبدع فقد كفيت ووفيت :signthankspin:

**sandanet** · مارس 31, 2017

@Shivan Rekany

اخي شافان هل ProcessorId يتغير ام ثابت عندما يتفرمت الجهاز ؟؟ لاني في موضوع سابق هنا واجهتني مشكلة في استعمال Id الهارد فوجدته يتغير عند تركيب فلاش ميموري مما اضطرني الى البحث عن سيريال نمبر الهارد (wmiMember.SerialNumber) فوجدته ثابث ولا يتغير

تحياتي

تم تعديل مارس 31, 2017 بواسطه sandanet

**Shivan Rekany** · مارس 31, 2017

4 ساعات مضت, sandanet said:

@Shivan Rekany

اخي شافان هل ProcessorId يتغير ام ثابت عندما يتفرمت الجهاز ؟؟ لاني في موضوع سابق هنا واجهتني مشكلة في استعمال Id الهارد فوجدته يتغير عند تركيب فلاش ميموري مما اضطرني الى البحث عن سيريال نمبر الهارد (wmiMember.SerialNumber) فوجدته ثابث ولا يتغير

تحياتي

في الحقيقة انا ما جربت

لكن انتظرني كم يوم

راح اجرب على جهازي

تحياتي

**Shivan Rekany** · أبريل 10, 2017

في ٣١‏/٣‏/٢٠١٧ at 19:32, sandanet said:

@Shivan Rekany

اخي شافان هل ProcessorId يتغير ام ثابت عندما يتفرمت الجهاز ؟؟ لاني في موضوع سابق هنا واجهتني مشكلة في استعمال Id الهارد فوجدته يتغير عند تركيب فلاش ميموري مما اضطرني الى البحث عن سيريال نمبر الهارد (wmiMember.SerialNumber) فوجدته ثابث ولا يتغير

تحياتي

السلام عليكم ورحمة الله وبركاته

تم التجربة
عملت فورمات للجهاز

ولحسن الحظ
لا يتغير اي رقم منهما لا للمزربور ولا للمعالج

تحياتي

تم تعديل أبريل 10, 2017 بواسطه Shivan Rekany

**ابوخليل** · أبريل 10, 2017

1 ساعه مضت, Shivan Rekany said:

السلام عليكم ورحمة الله وبركاته

تم التجربة
عملت فورمات للجهاز

ولحسن الحظ
لا يتغير اي رقم منهما لا للمزربور ولا للمعالج

تحياتي

هذا مكسب حقيقي ، التجربة خير برهان

جزاك الله خير اخونا شفان وحرصك على نفع الناس

**Shivan Rekany** · أبريل 10, 2017

20 دقائق مضت, ابوخليل said:

هذا مكسب حقيقي ، التجربة خير برهان

جزاك الله خير اخونا شفان وحرصك على نفع الناس

وجزاك الله كل خير استاذي

**sandanet** · أبريل 11, 2017

نعم أخي شافان اتفق معك لكني وجدت ان البرنامج لايظهر رقم اللوحة الأم لبعض الأجهزة لذلك وجدت ان افضل طريقة هي استعمال سيريال المعالج مع سيريال الهارد مع ال UUID

ملاحظة: قمت بالتجربة على 3 أجهزة

تحياتي

تم تعديل أبريل 11, 2017 بواسطه sandanet

**Shivan Rekany** · أبريل 11, 2017

وانا جربت على بعض اجهزة اخرى وواحد منها ما طالع الرقم مزربورد وما اعرف السبب
لذا يجب ان نبحث عن السبب

26 دقائق مضت, sandanet said:

نعم أخي شافان اتفق معك لكني وجدت ان البرنامج لايظهر رقم اللوحة الأم لبعض الأجهزة لذلك وجدت ان افضل طريقة هي استعمال سيريال المعالج مع سيريال الهارد مع ال UUID

ملاحظة: قمت بالتجربة على 3 أجهزة

تحياتي

وانا جربت على بعض اجهزة اخرى وواحد منها ما طالع الرقم مزربورد وما اعرف السبب
لذا يجب ان نبحث عن السبب

**sandanet** · أبريل 11, 2017

جربت تغيير كود الماذربورد بكود البايوز وحدثت نفس المشكلة فبعض الاجهزة لايظهر فيها رقم البايوز

Aliko · يونيو 12, 2017

On 3/29/2017 at 5:33 PM, Shivan Rekany said:
* ملحوظة : انا خذت الكود في موقع اجنبي

في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library

الصق هذا الكود في وحدة نمطية
Option Compare Database
Option Explicit
Const Arr = 2
Public Function GetPcSnCpuAndMotherboard()
' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة
DoCmd.Hourglass True
  Dim SWbemSet(Arr) As SWbemObjectSet
  Dim SWbemObj As SWbemObject
  Dim varObjectToId(Arr) As String
  Dim varSerial(Arr) As String
  Dim i, j As Integer
  Dim fld As String
  
  On Error Resume Next
  varObjectToId(1) = "Win32_BaseBoard,SerialNumber"
  varObjectToId(2) = "Win32_Processor,ProcessorId"
  For i = 1 To Arr
    Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0))
    varSerial(i) = ""
    For Each SWbemObj In SWbemSet(i)
      varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value
      varSerial(i) = Trim(varSerial(i))
      If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value"
    Next
        fld = "Text" & i
        Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك
  Next
  DoCmd.Hourglass False
End Function
وفي النموذج في اي حدث تريد
مثلا عند تحميل او عند الضغط على كليك مثلا
اكتب في محرر فيجوال هذا
Call GetPcSnCpuAndMotherboard
ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده‌ نمطية

===============

واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية
اليك هذا
Private Sub Form_Load()
' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة
  Dim varObjectToId As String
  Dim varSerial As String
  On Error Resume Next
  varObjectToId = "Win32_BaseBoard,SerialNumber"
' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه
  'varObjectToId = "Win32_Processor,ProcessorId"
    Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0))
    varSerial = ""
    For Each SWbemObj In SWbemSet
      varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1))
      varSerial = Trim(varSerial)
      If Len(varSerial) < 1 Then varSerial = "Unknown value"
    Next
             Me.Text1 = varSerial
End Sub
واخيرا اتفضل مع قاعدة بيانات بها الطريقتين

لمعرفة سريال نمبر المعالج واللوحة الأم.rar

استاذ شفان @Shivan Rekany تحياتي لك والله ابداع الله يحفظك

سؤال هل يمكن ان احصل على رقم المذربورد فقط من دون حروف انكليزية ؟

**Shivan Rekany** · سبتمبر 28, 2017

في ١٢‏/٦‏/٢٠١٧ at 04:02, Aliko said:

سؤال هل يمكن ان احصل على رقم المذربورد فقط من دون حروف انكليزية ؟

بامكاننا ان نتحول الحروف الى الارقام

تسجيل الدخول

معرفة سيريال الهارد الحقيقي والمعلج واللوحة الأم

الردود الموصى بها

hosslom

Shivan Rekany

hosslom

Shivan Rekany

hosslom

Shivan Rekany

sandanet

sandanet

Ahmed.IQ

Shivan Rekany

Shivan Rekany

sandanet

Shivan Rekany

Shivan Rekany

sandanet

sandanet

Shivan Rekany

Shivan Rekany

ابوخليل

Shivan Rekany

sandanet

Shivan Rekany

sandanet

Aliko

Shivan Rekany

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information