اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


hosslom

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

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

 

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

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

 

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

تم تعديل بواسطه ابوخليل
تعديل العنوان
  • Like 1
رابط هذا التعليق
شارك

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

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

 

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

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

 

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

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

 

  • Like 2
رابط هذا التعليق
شارك

 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

 

تم تعديل بواسطه Shivan Rekany
  • Like 1
رابط هذا التعليق
شارك

   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

جرب ان تغيره

  • Like 5
رابط هذا التعليق
شارك


 

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

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

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

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

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

 

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

 

 

 

تم تعديل بواسطه Shivan Rekany
  • Like 2
رابط هذا التعليق
شارك

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

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

 

  • Like 5
رابط هذا التعليق
شارك

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

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

 

تحياتي

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

تم تعديل بواسطه Shivan Rekany
  • Like 1
رابط هذا التعليق
شارك

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

  • Like 6
رابط هذا التعليق
شارك

@Shivan Rekany

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

 

تحياتي 

تم تعديل بواسطه sandanet
رابط هذا التعليق
شارك

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

@Shivan Rekany

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

 

تحياتي 

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

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

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

تحياتي

رابط هذا التعليق
شارك

  • 2 weeks later...
في ٣١‏/٣‏/٢٠١٧ at 19:32, sandanet said:

@Shivan Rekany

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

 

تحياتي 

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

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

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

تحياتي

تم تعديل بواسطه Shivan Rekany
  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

تحياتي

تم تعديل بواسطه sandanet
رابط هذا التعليق
شارك

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

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

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

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

تحياتي


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

رابط هذا التعليق
شارك

  • 2 months later...
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 تحياتي لك والله ابداع الله يحفظك

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

رابط هذا التعليق
شارك

  • 3 months later...
في ١٢‏/٦‏/٢٠١٧ at 04:02, Aliko said:

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information