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

[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.mdb

[moamen salem]

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

في ١٠‏/١٢‏/٢٠٢١ at 22:06, Eng.Qassim said:

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

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

SerialNumber.mdb 240 kB · 12 downloads

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

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

في ١٠‏/١٢‏/٢٠٢١ at 21: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)

تحياتي

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

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

[moamen salem]

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

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

وشكرا انفا 

[ابو جودي]

في ١٠‏/١٢‏/٢٠٢١ at 20:36, moamen salem said:

السلام عليكم 

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

 

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

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

 

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

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

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

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

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

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

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

 

Get UUID.mdb

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

[moamen salem]

31 دقائق مضت, ابو جودي said:

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

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

 

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

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

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

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

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

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

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

 

Get UUID.mdb 204 kB · 0 downloads

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

سؤال 

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

[ابو جودي]

3 ساعات مضت, moamen salem said:

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

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

 

[moamen salem]

3 ساعات مضت, ابو جودي said:

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

 

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

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

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

[ابو جودي]

8 ساعات مضت, moamen salem said:

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

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

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

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