أستاذى @Eng.Qassim
أنا الملف الى رافع كان مكتوب على الكود نواة قاعدة بيانات الاوفيس و فعلا كان النتيجة مظبوطة 32 و ملف حضرتك نواة الويندوذ لأن فعلا النتيجة 64 مظبوط كده
تعديل كود للعمل من الوحدة النمطية
الكود الاصلى
'Collecting Clock Speed (MHz)
Function Clock(strComputer)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem in colItems
'Wscript.Echo "Clock Speed: " & objItem.CurrentClockSpeed
strResult = objItem.CurrentClockSpeed
Next
Clock = strResult
End Function
Clock.accdb
فى هذا البرنامج نعرف مواصفات جهاز الكمبيوتر
لم أستطيع التوصل الى نوع الرام DDR2 أو DDR3 ,,وهكذا .
لم أستطيع التوصل الى حجم كارت الشاشة .
لم أستطيع التوصل الى نواة الويندوذ هل هى X32 أو X68
مرجب بالتجربة و مرحب بالتطوير ان أمكن
SystemInfo.rar
جزاك الله خيرا استاذى @ابوخليل
تم 255 IP فى دقيقتين سوف أعرف الاجهزة التى تعمل و احذف IP الاجهزة التى لا تعمل
وسأبحث عن تسريع الامر برنامج ipscan وقت scan استغرق 39 ثانية
أستاذى @ابوخليل
ممكن عن طريق النموذج ( يمكن من خلال النموذج وبدلا من عداد الوقت نستخدم دوارة على السجلات ولكن ان اردتها سريعة لا تتعدا السجلات 100 او 120 بالكثير)
لأن الاستعلام فعلا بطىء و كله مشاكل
أستاذى @ابوخليل
ممكن التطبيق على
يمكن من خلال النموذج وبدلا من عداد الوقت نستخدم دوارة على السجلات ولكن ان اردتها سريعة لا تتعدا السجلات 100 او 120 بالكثير
وبصراحة لا استطيع عمل شريط التحميل
أستاذى @Moosak
أريد أن أ‘عرف الاجهزة التى تعمل على الشبكها جميعها
وكيف يمكن تطبيقها فى الاستعلام لا أعرف كيف اربط حقل IP بالوحدة النمطية
وحزاكم الله كل خير