جلب رقم المازر بورد

[moamen salem]

السلام عليكم 

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

 

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Public Function MBSerialNumber() As String

        Dim objs As Object
        Dim obj As Object
        Dim WMI As Object
        Dim sAns As String
        
        Set WMI = GetObject("WinMgmts:")
        Set objs = WMI.InstancesOf("Win32_BaseBoard")
        
        For Each obj In objs
             sAns = sAns & obj.SerialNumber
            If sAns < objs.Count Then sAns = sAns & ","
        Next
        If Right(MBSerialNumber, 1) = "," Then MBSerialNumber = Left(MBSerialNumber, LenB(MBSerialNumber) - 1)
        MBSerialNumber = sAns
End Function

Debug.Print MBSerialNumber

تحياتي

[محمد أبوعبدالله]

ولمزيد من الفائدة استخدم الكود التالي لفصل الارقام عن الحروف

Public Function Numtext(fildHrfRqm As String)
    Dim lets, lets2, lets3
    Dim i, r As Integer
    r = Len(fildHrfRqm)
        For i = 1 To r
            lets = Mid(fildHrfRqm, i, 1)
            If IsNumeric(lets) Then
            lets2 = lets2 & lets
            End If
            Next
    Numtext = lets2
End Function

Debug.Print Numtext(MBSerialNumber)

تحياتي

[Eng.Qassim]

وعليكم السلام استاذ مؤمن..

وجدت الملف المرفق في مكتبتي.. عسى ان ينفعك ..وللامانة العلمية اخذته من احد المواقع الاجنبية

SerialNumber.mdbFetching info...

[moamen salem]

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

  في 10‏/12‏/2021 at 19:06, Eng.Qassim said:

وعليكم السلام استاذ مؤمن..

وجدت الملف المرفق في مكتبتي.. عسى ان ينفعك ..وللامانة العلمية اخذته من احد المواقع الاجنبية

SerialNumber.mdb 240 kB · 12 downloads

Expand  

شكرا جزيلا يا باش مهندس 

لسة شايف الرد دلوقتي للاسف 

  في 10‏/12‏/2021 at 18:59, محمد أبوعبدالله said:

ولمزيد من الفائدة استخدم الكود التالي لفصل الارقام عن الحروف

Public Function Numtext(fildHrfRqm As String)
    Dim lets, lets2, lets3
    Dim i, r As Integer
    r = Len(fildHrfRqm)
        For i = 1 To r
            lets = Mid(fildHrfRqm, i, 1)
            If IsNumeric(lets) Then
            lets2 = lets2 & lets
            End If
            Next
    Numtext = lets2
End Function

Debug.Print Numtext(MBSerialNumber)

تحياتي

Expand  

اشكر حضرتك كتير يا استاذنا وجزاك الله خير 

معليش لسة شايف الرد دلوقتي 

[moamen salem]

انا محتاج كود عند الفتح يجعل قيمة حقل معين بتساوي رقم المازر بورد 

لاني مش فاهم الاكود الكتير او مش عارف افصلهم من بعض 

وشكرا انفا 

[ابو جودي]

  في 10‏/12‏/2021 at 18:36, moamen salem said:

السلام عليكم 

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

 

Expand  

طيب نصيحة سيبك من رقم الماذر بورد

لانه احيانا الاكواد ما تحصل اى نتائج ومنها اللوحة تبعى 

 

ان كنت تريد رقم فريد اتفضل

- التجربة قبل وبعد فصل الشبكة ظهر نفس الرقم

- التجربة بعد أعادة تشغيل .. قبل وبعد فصل الشبكة ظهر نفس الرقم

- التجربة بعد الفرمات .. قبل وبعد فصل الشبكة ظهر نفس الرقم

- النظام قبل الفرمات ويندوز 10 - 64Bit   أوفس 2021 64Bit

- النظام بعد الفرمات ويندوز 7 - 32Bit   أوفس 2016 32Bit

والرقم الناتج من تلك الطريقة ثابت لا يتغير مطلقا

 

Get UUID.mdbFetching info...

تم تعديل ديسمبر 22, 2021 بواسطه ابو جودي

[moamen salem]

  في 22‏/12‏/2021 at 12:10, ابو جودي said:

طيب نصيحة سيبك من رقم الماذر بورد

لانه احيانا الاكواد ما تحصل اى نتائج ومنها اللوحة تبعى 

 

ان كنت تريد رقم فريد اتفضل

- التجربة قبل وبعد فصل الشبكة ظهر نفس الرقم

- التجربة بعد أعادة تشغيل .. قبل وبعد فصل الشبكة ظهر نفس الرقم

- التجربة بعد الفرمات .. قبل وبعد فصل الشبكة ظهر نفس الرقم

- النظام قبل الفرمات ويندوز 10 - 64Bit   أوفس 2021 64Bit

- النظام بعد الفرمات ويندوز 7 - 32Bit   أوفس 2016 32Bit

والرقم الناتج من تلك الطريقة ثابت لا يتغير مطلقا

 

Get UUID.mdb 204 kB · 0 downloads

Expand  

اهلا وسهلا باستاذنا العبقري نفعنا واياكم الله بعلمك

سؤال 

الرقم دا عبارة عن ايه ؟

[ابو جودي]

  في 22‏/12‏/2021 at 12:42, moamen salem said:

الرقم دا عبارة عن ايه ؟

Expand  

UUID هو اختصار للمعرف الفريد العالمي Universal Unique Identifier هو معرف فريد يتم إنشاؤه آليًا بواسطة خوارزمية معينة
من أجل ضمان تفرد UUID تحدد المواصفات العناصر بما في ذلك عنوان MAC لبطاقة الشبكة والطابع الزمني ومساحة الاسم (Namespace) والرقم العشوائي أو العشوائي الزائف والتوقيت والعناصر الأخرى وخوارزمية إنشاء UUID من هذه العناصر. تعني الخصائص المعقدة لـ UUID أنه لا يمكن إنشاؤها إلا عن طريق الكمبيوتر مع ضمان تفردها.

 

[moamen salem]

  في 22‏/12‏/2021 at 16:30, ابو جودي said:

UUID هو اختصار للمعرف الفريد العالمي Universal Unique Identifier هو معرف فريد يتم إنشاؤه آليًا بواسطة خوارزمية معينة
من أجل ضمان تفرد UUID تحدد المواصفات العناصر بما في ذلك عنوان MAC لبطاقة الشبكة والطابع الزمني ومساحة الاسم (Namespace) والرقم العشوائي أو العشوائي الزائف والتوقيت والعناصر الأخرى وخوارزمية إنشاء UUID من هذه العناصر. تعني الخصائص المعقدة لـ UUID أنه لا يمكن إنشاؤها إلا عن طريق الكمبيوتر مع ضمان تفردها.

 

Expand  

شكرا يا استاذنا 

خلاص هنعتمد علي الله ونستبدله برقم الهاردس اللي تعبني معاه 

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

[ابو جودي]

  في 22‏/12‏/2021 at 20:16, moamen salem said:

شكرا يا استاذنا 

خلاص هنعتمد علي الله ونستبدله برقم الهاردس اللي تعبني معاه 

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

Expand  

رقم العارد بيتغير بعد الفورمات