إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

اسم المعالج

تقليص
هذا الموضوع مغلق.
X
X
تقليص
 
  • الصفحة لـ 1
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة
السابق template التالي
  • #1

    اسم المعالج

    السلام عليكم ورحمة الله وبركاته
    أخي لاستخلاص اسم المعالج Processor و بتوظيف الاظافة
    luacom
    واستعلال الكود :
    كود PHP:
    function WMIDateStringToDate(dtmDate)
        if     dtmDate then
            dtmDate     = tostring(dtmDate);
            return (    String.Mid (dtmDate, 7, 2)  .. "/" ..
                        String.Mid (dtmDate, 5, 2)  .. "/" ..
                        String.Left(dtmDate, 4)     .. " " ..
                        String.Mid (dtmDate, 9, 2)  .. ":" .. 
                        String.Mid (dtmDate, 11, 2) .. ":" .. 
                        String.Mid (dtmDate, 13, 2)
                   );
        else
            return     "";
            end
    end

    function Escape(v)
        if (    v == nil) then return ""; end
            if (type(v) == "table") then return Table.Concat(v, ", "); end
            if (type(v) == "boolean") then
                if (v == true) then return "Yes"; else return "No"; end
        end
            return v;
    end
    local sOutputTitle     = " localhost";
    local oWMIService  = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
    local oColItems    = oWMIService:ExecQuery("SELECT * FROM Win32_Processor", "WQL", 48);
    if     oColItems then
        local oEnum       = luacom.GetEnumerator(oColItems);
            local oItem = oEnum:Next();
            Dialog.Message("Name",  Escape(oItem:Name()));
    end 
    نحصل في الوينداوز xp على البيانات المطلوبة

    تساؤلي : هل هذا الاستخلاص لم يتأثر باختلاف اصدارات الوينداوز "7 و 8 "

    شكرا
    الكلمات الدلالية: اسم, المعالج
  • #2
    السلام عليكم ورحمة الله وبركاته
    بما انك تملك النسختين وزيادة على ذلك تملك الكود فالتجربة هي الجواب .
    اعذر تدخلي فانني في بعض الاحيان العب دور الحاج كلوف
    موفق بإذن الله ... لك مني أجمل تحية .

    ملاحظة : الحاج كلوف شخصية هزلية تونسية يتدخل فيما لا يعنيه

    تعليق

    • #3
      هههههههههههه هذه الروح الخفيفة المستوحاة من شخصية هزلية مطلوبة من حين لاخر
      لكن لاحظ أني أملك نسخة xp قديمة وجاد في تساؤلي

      تعليق

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

        نعم يعمل مع ويندوز 8.1 وبالتالى يعمل مع ويندوز 7 أيضا

        تعليق

        • #5
          وعليكم السلام ورحمة الله وبركاته
          بارك الله فيك أستاذي الكريم بصدد إنجاز أداة
          وسأترك باقي الاكواد المتعلقة بالمعالج قد يحتاجها أخ كريم
          كود PHP:
          function WMIDateStringToDate(dtmDate)
              if           dtmDate then
                  dtmDate           = tostring(dtmDate);
                  return (          String.Mid (dtmDate, 7, 2)  .. "/" ..
                                    String.Mid (dtmDate, 5, 2)  .. "/" ..
                                    String.Left(dtmDate, 4)     .. " " ..
                                    String.Mid (dtmDate, 9, 2)  .. ":" .. 
                                    String.Mid (dtmDate, 11, 2) .. ":" .. 
                                    String.Mid (dtmDate, 13, 2)
                         );
              else
                  return           "";
                        end
          end

          function Escape(v)
              if (          v == nil) then return ""; end
                        if (type(v) == "table") then return Table.Concat(v, ", "); end
                        if (type(v) == "boolean") then
                            if (v == true) then return "Yes"; else return "No"; end
              end
                        return v;
          end

          local sOutput                = "";
          local sOutputTitle = "Computer: localhost\r\n==========================================\r\n\r\n";
          local oWMIService  = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
          local oColItems    = oWMIService:ExecQuery("SELECT * FROM Win32_Processor", "WQL", 48);
          if           oColItems then
              local oEnum             = luacom.GetEnumerator(oColItems);
                        local oItem = oEnum:Next();
              while           oItem do
                            sOutput = sOutput .. "AddressWidth: " .. Escape(oItem:AddressWidth()) .. "\r\n";
                            sOutput = sOutput .. "Architecture: " .. Escape(oItem:Architecture()) .. "\r\n";
                            sOutput = sOutput .. "Availability: " .. Escape(oItem:Availability()) .. "\r\n";
                            sOutput = sOutput .. "Caption: " .. Escape(oItem:Caption()) .. "\r\n";
                            sOutput = sOutput .. "ConfigManagerErrorCode: " .. Escape(oItem:ConfigManagerErrorCode()) .. "\r\n";
                            sOutput = sOutput .. "ConfigManagerUserConfig: " .. Escape(oItem:ConfigManagerUserConfig()) .. "\r\n";
                            sOutput = sOutput .. "CpuStatus: " .. Escape(oItem:CpuStatus()) .. "\r\n";
                            sOutput = sOutput .. "CreationClassName: " .. Escape(oItem:CreationClassName()) .. "\r\n";
                            sOutput = sOutput .. "CurrentClockSpeed: " .. Escape(oItem:CurrentClockSpeed()) .. "\r\n";
                            sOutput = sOutput .. "CurrentVoltage: " .. Escape(oItem:CurrentVoltage()) .. "\r\n";
                            sOutput = sOutput .. "DataWidth: " .. Escape(oItem:DataWidth()) .. "\r\n";
                            sOutput = sOutput .. "Description: " .. Escape(oItem:Description()) .. "\r\n";
                            sOutput = sOutput .. "DeviceID: " .. Escape(oItem:DeviceID()) .. "\r\n";
                            sOutput = sOutput .. "ErrorCleared: " .. Escape(oItem:ErrorCleared()) .. "\r\n";
                            sOutput = sOutput .. "ErrorDescription: " .. Escape(oItem:ErrorDescription()) .. "\r\n";
                            sOutput = sOutput .. "ExtClock: " .. Escape(oItem:ExtClock()) .. "\r\n";
                            sOutput = sOutput .. "Family: " .. Escape(oItem:Family()) .. "\r\n";
                            sOutput = sOutput .. "InstallDate: " .. WMIDateStringToDate(oItem:InstallDate()) .. "\r\n";
                            sOutput = sOutput .. "L2CacheSize: " .. Escape(oItem:L2CacheSize()) .. "\r\n";
                            sOutput = sOutput .. "L2CacheSpeed: " .. Escape(oItem:L2CacheSpeed()) .. "\r\n";
                            sOutput = sOutput .. "LastErrorCode: " .. Escape(oItem:LastErrorCode()) .. "\r\n";
                            sOutput = sOutput .. "Level: " .. Escape(oItem:Level()) .. "\r\n";
                            sOutput = sOutput .. "LoadPercentage: " .. Escape(oItem:LoadPercentage()) .. "\r\n";
                            sOutput = sOutput .. "Manufacturer: " .. Escape(oItem:Manufacturer()) .. "\r\n";
                            sOutput = sOutput .. "MaxClockSpeed: " .. Escape(oItem:MaxClockSpeed()) .. "\r\n";
                            sOutput = sOutput .. "Name: " .. Escape(oItem:Name()) .. "\r\n";
                            sOutput = sOutput .. "NumberOfCores: " .. Escape(oItem:NumberOfCores()) .. "\r\n";
                            sOutput = sOutput .. "NumberOfLogicalProcessors: " .. Escape(oItem:NumberOfLogicalProcessors()) .. "\r\n";
                            sOutput = sOutput .. "OtherFamilyDescription: " .. Escape(oItem:OtherFamilyDescription()) .. "\r\n";
                            sOutput = sOutput .. "PNPDeviceID: " .. Escape(oItem:PNPDeviceID()) .. "\r\n";
                            sOutput = sOutput .. "PowerManagementCapabilities: " .. Escape(oItem:PowerManagementCapabilities()) .. "\r\n";
                            sOutput = sOutput .. "PowerManagementSupported: " .. Escape(oItem:PowerManagementSupported()) .. "\r\n";
                            sOutput = sOutput .. "ProcessorId: " .. Escape(oItem:ProcessorId()) .. "\r\n";
                            sOutput = sOutput .. "ProcessorType: " .. Escape(oItem:ProcessorType()) .. "\r\n";
                            sOutput = sOutput .. "Revision: " .. Escape(oItem:Revision()) .. "\r\n";
                            sOutput = sOutput .. "Role: " .. Escape(oItem:Role()) .. "\r\n";
                            sOutput = sOutput .. "SocketDesignation: " .. Escape(oItem:SocketDesignation()) .. "\r\n";
                            sOutput = sOutput .. "Status: " .. Escape(oItem:Status()) .. "\r\n";
                            sOutput = sOutput .. "StatusInfo: " .. Escape(oItem:StatusInfo()) .. "\r\n";
                            sOutput = sOutput .. "Stepping: " .. Escape(oItem:Stepping()) .. "\r\n";
                            sOutput = sOutput .. "SystemCreationClassName: " .. Escape(oItem:SystemCreationClassName()) .. "\r\n";
                            sOutput = sOutput .. "SystemName: " .. Escape(oItem:SystemName()) .. "\r\n";
                            sOutput = sOutput .. "UniqueId: " .. Escape(oItem:UniqueId()) .. "\r\n";
                            sOutput = sOutput .. "UpgradeMethod: " .. Escape(oItem:UpgradeMethod()) .. "\r\n";
                            sOutput = sOutput .. "Version: " .. Escape(oItem:Version()) .. "\r\n";
                            sOutput = sOutput .. "VoltageCaps: " .. Escape(oItem:VoltageCaps()) .. "\r\n";
                  if (          Dialog.Message("WMI Output",  sOutputTitle .. sOutput, 1) == 2) then break; end
                  sOutput           = "";
                            oItem = oEnum:Next();
                        end
          else
                        Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_Processor"); 

          تعليق

          • #6
            المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
            هههههههههههه هذه الروح الخفيفة المستوحاة من شخصية هزلية مطلوبة من حين لاخر
            لكن لاحظ أني أملك نسخة xp قديمة وجاد في تساؤلي
            السلام عليكم ورحمة الله وبركاته
            وهل هناك نسخة xp جديدة

            تعليق

            • #7
              مساعدة

              استاذ العزيز ارجو منك مراجعة الخاص اود الاتصال بك لطلب المساعدة لانشاء برنامج .

              تعليق

              • #8
                المشاركة الأصلية بواسطة فرح صالحي مشاهدة المشاركة
                السلام عليكم ورحمة الله وبركاته
                وهل هناك نسخة xp جديدة
                ههههههههه """ وعلاش ما يكونش القرص قديم امْجرّحْ"""
                أو قديمة بالنسبة لباقي الاصدارات
                التعديل الأخير تم بواسطة ثامر أبو بلقيس; الساعة 22-05-2014, 12:53 AM.

                تعليق

                • #9
                  المشاركة الأصلية بواسطة داسة محمد عصام مشاهدة المشاركة
                  استاذ العزيز ارجو منك مراجعة الخاص اود الاتصال بك لطلب المساعدة لانشاء برنامج .
                  معاك أخي عصام """ خير .... إن شاء الله """ ر..خ موفق

                  تعليق

                  • #10
                    أعطانى قيمة غير صحيحة لإسم المعالج
                    و قرره p3 بينما هو p4

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

                    تعليق

                    • #11
                      شكرا عملت بما أشرت لكن جربت في أكثر من جهاز و أعطت نتائج صحيحة

                      http://im63.gulfup.com/lU3qpQ.swf

                      على كل مشكور جدا

                      تعليق

                      السابق template التالي

                      مواضيع تهمك

                      تقليص
                      Empty RSS Feed.
                      يعمل...
                      X