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