oWMILocator = createobject("WbemScripting.SWbemLocator")oWMI = oWMILocator.ConnectServer(".", "root\cimv2")oProcessors = oWMI.InstancesOf("WIN32_Processor")for each oProcessor in oProcessors ? "Processor speed: ", oProcessor.MaxClockSpeednext