تعديل بسيط على كود جلب سيريال المازر بورد

[عادل سرور سرور]

Function MBSerialNumber2()
'الحصول على سيريال المازر بورد بدون اعطاء اسم الكمبيوتر
    Dim V, vName, vUUID
    With GetObject("winmgmts:\\")
        For Each V In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)
            vName = V.Name
            vUUID = V.UUID
        Next V
    End With
    MBSerialNumber2 = vName & ", " & vUUID
End Function

 

تم تعديل يوليو 23 بواسطه ابوخليل
تنسيق الكود

[Foksh]

3 ساعات مضت, عادل سرور سرور said:

Function MBSerialNumber2()
'الحصول على سيريال المازر بورد بدون اعطاء اسم الكمبيوتر
    Dim V, vName, vUUID
    With GetObject("winmgmts:\\")
        For Each V In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)
            vName = V.Name
            vUUID = V.UUID
        Next V
    End With
    MBSerialNumber2 = vName & ", " & vUUID
End Function

 

أهلا وسهلاً اخي الكريم معنا في عالمنا المتواضع ,,

ارجو منك مستقبلاً ان تهتم أكثر بقوانين المنتدى بحيث :-

تقوم بشرح المطلوب بشكل واضح و وافي ، وإرفاق ملف ليتم التعديل عليه وضمان النتيجة .

 

جرب هذا الكود من أحد ملفاتي :-

Function GetMotherboardSerialNumber() As String
    Dim wmiObject As Object
    Dim item As Object
    Dim computerName As String
    Dim motherboardUUID As String
    Set wmiObject = GetObject("winmgmts:\\")
    For Each item In wmiObject.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
        computerName = item.Name
        motherboardUUID = item.UUID
    Next item
    GetMotherboardSerialNumber = computerName & ", " & motherboardUUID
End Function

واستدعي النتيجة في أي مربع نص من خلال :-

Me.TextBox = GetMotherboardSerialNumber()

 

تم تعديل يوليو 23 بواسطه Foksh