Public Function ProcessorSpeed() As String '取得电脑CPU的名称及速度 Dim MyOBJ As Object Dim cpu As Object Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor") For Each cpu In MyOBJ ProcessorSpeed = cpu.Name & " " & cpu.CurrentClockSpeed & " Mhz" Next End Function
