ترجمة كود من ال c الى الاكسس

[sandanet]

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

 

اساتذتي الكرام تحية طيبة وبعد ،،

 

هل يمكن ترجمة الكود الموجود في هذه الصفحة الى الاكسس  http://stackoverflow.com/questions/29750894/how-to-retrieve-wmi-data-such-as-uuid-from-a-c-sharp-program

تحياتي

[أبو إبراهيم الغامدي]

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

الوظيفة التالية تعيد قيمة (UUID) للمنتج

Function UUID()
    On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48)
    
    For Each objItem In colItems
        UUID = objItem.UUID
    Next

End Function

 

إذا  كنت بحاجة إلى معرف كامل البيانات التي يعيها المجال (Win32_ComputerSystemProduct) استخدم الإجراء التالي

Sub ComputerSystemProduct()
    On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48)
    For Each objItem In colItems
        Debug.Print "Caption: " & objItem.Caption
        Debug.Print "Description: " & objItem.Description
        Debug.Print "IdentifyingNumber: " & objItem.IdentifyingNumber
        Debug.Print "Name: " & objItem.Name
        Debug.Print "SKUNumber: " & objItem.SKUNumber
        Debug.Print "UUID: " & objItem.UUID
        Debug.Print "Vendor: " & objItem.Vendor
        Debug.Print "Version: " & objItem.Version
    Next
End Sub

 

SCRIPTING.zip

تم تعديل أبريل 1, 2017 بواسطه أبو إبراهيم الغامدي

[sandanet]

اشكرك جزيل الشكر أخي ابو ابراهيم .. جاري تجربة الكود 

لكن حسب رأيك الشخصي ماهو تعريفك لـ "UUID" ؟؟ وهل هو فريد وثابت لكل جهاز ام ماذا؟

 

تحياتي

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