تسجيل الدخول

مشاهدة النسخة كاملة : اسم المعالج


ثامر أبو بلقيس
21-05-2014, 10:16 PM
السلام عليكم ورحمة الله وبركاته
أخي لاستخلاص اسم المعالج Processor و بتوظيف الاظافة
luacom
واستعلال الكود :
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 "

شكرا :abc_138:

فرح صالحي
21-05-2014, 11:00 PM
السلام عليكم ورحمة الله وبركاته
بما انك تملك النسختين وزيادة على ذلك تملك الكود فالتجربة هي الجواب .
اعذر تدخلي فانني في بعض الاحيان العب دور الحاج كلوف
موفق بإذن الله ... لك مني أجمل تحية .
:abc_113:
ملاحظة : الحاج كلوف شخصية هزلية تونسية يتدخل فيما لا يعنيه

ثامر أبو بلقيس
21-05-2014, 11:12 PM
هههههههههههه هذه الروح الخفيفة المستوحاة من شخصية هزلية مطلوبة من حين لاخر
لكن لاحظ أني أملك نسخة xp قديمة وجاد في تساؤلي

عبود عبود
21-05-2014, 11:14 PM
السلام عليكم ورحمة الله وبركاته

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

:abc_051:

ثامر أبو بلقيس
21-05-2014, 11:19 PM
وعليكم السلام ورحمة الله وبركاته
بارك الله فيك أستاذي الكريم بصدد إنجاز أداة
وسأترك باقي الاكواد المتعلقة بالمعالج قد يحتاجها أخ كريم
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");

فرح صالحي
21-05-2014, 11:23 PM
هههههههههههه هذه الروح الخفيفة المستوحاة من شخصية هزلية مطلوبة من حين لاخر
لكن لاحظ أني أملك نسخة xp قديمة وجاد في تساؤلي

السلام عليكم ورحمة الله وبركاته
وهل هناك نسخة xp جديدة
http://im86.gulfup.com/QNV7Jc.gif

داسة محمد عصام
21-05-2014, 11:23 PM
استاذ العزيز ارجو منك مراجعة الخاص اود الاتصال بك لطلب المساعدة لانشاء برنامج .

ثامر أبو بلقيس
21-05-2014, 11:31 PM
السلام عليكم ورحمة الله وبركاته
وهل هناك نسخة xp جديدة
http://im86.gulfup.com/qnv7jc.gif

ههههههههه """ وعلاش ما يكونش القرص قديم امْجرّحْ"""
أو قديمة بالنسبة لباقي الاصدارات

ثامر أبو بلقيس
21-05-2014, 11:52 PM
استاذ العزيز ارجو منك مراجعة الخاص اود الاتصال بك لطلب المساعدة لانشاء برنامج .

معاك أخي عصام """ خير .... إن شاء الله """ ر..خ موفق

:abc_138:

النصل القاطع
22-05-2014, 11:33 AM
أعطانى قيمة غير صحيحة لإسم المعالج
و قرره p3 بينما هو p4

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

ثامر أبو بلقيس
24-05-2014, 01:10 PM
شكرا عملت بما أشرت لكن جربت في أكثر من جهاز و أعطت نتائج صحيحة

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

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