تعديل كود للعمل من الوحدة النمطية

[محمد احمد لطفى]

تعديل كود للعمل من الوحدة النمطية
الكود الاصلى 
 

'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

[ابوخليل]

هل هذا ما تريد ؟

  Function ProcessorSpeed()
' shows the processor name and speed of the computer
      Dim MyOBJ        As Object
      Dim cpu          As Object
      Dim strComputer  As String
      Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor")
      For Each cpu In MyOBJ
            'MsgBox cpu.Name & " " & cpu.CurrentClockSpeed & " Mhz", vbInformation
      strComputer = cpu.CurrentClockSpeed
      Next
 ProcessorSpeed = strComputer
End Function

ايضا انظر في سطر الرسالة المعطل ان اردت اسم المعالج ايضا

Clock2.rar

[kkhalifa1960]

,وهذا مثالك بعد التعديل وراجع المكتبات به ويعمل عندي جيداً النتيجة 1401 

Clock_DD11.accdb

[محمد احمد لطفى]

شكراً أستاذى @ابوخليل  كنت أريد معرفة كيف يعمل الكود فى المشاركة الاولى .

شكراً أستاذى @kkhalifa1960