' Needs a reference set to the microsoft WMI scripting runtime library
Private Sub Command1_Click()
Dim cpuSet As SWbemObjectSet
Dim cpu As SWbemObject
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonat e}"). _
InstancesOf("Win32_Processor")
For Each cpu In cpuSet
Print "Processor name:" & cpu.Name
Print "Current running speed:" & cpu.CurrentClockSpeed
Print "Maxmimum running speed:" & cpu.MaxClockSpeed
Next cpu
End Sub
|