cpu speed

[IROY55]

Check this out:

Private Sub Command1_Click()
'========================
Dim WMI
Dim wmiWin32Objects
Dim wmiWin32Object
Dim ComputerName As String
 
    ComputerName = "PENTIUM21"
    Set WMI = GetObject("WinMgmts://" & ComputerName)
 
    Set wmiWin32Objects = WMI.InstancesOf("Win32_Processor")
    With wmiWin32Object
        For Each wmiWin32Object In wmiWin32Objects
            Debug.Print "AddressWidth: " & .AddressWidth
            Debug.Print "Architecture: " & .Architecture
            Debug.Print "Availability: " & .Availability
            Debug.Print "Caption: " & .Caption
            Debug.Print "ConfigManagerErrorCode: " & .ConfigManagerErrorCode
            Debug.Print "ConfigManagerUserConfig: " & .ConfigManagerUserConfig
            Debug.Print "CpuStatus: " & .CpuStatus
            Debug.Print "CreationClassName: " & .CreationClassName
            Debug.Print "CurrentClockSpeed: " & .CurrentClockSpeed
            Debug.Print "CurrentVoltage: " & .CurrentVoltage
            Debug.Print "DataWidth: " & .DataWidth
            Debug.Print "Description: " & .Description
            Debug.Print "DeviceID: " & .DeviceID
            Debug.Print "ErrorCleared: " & .ErrorCleared
            Debug.Print "ErrorDescription: " & .ErrorDescription
            Debug.Print "ExtClock: " & .ExtClock
            Debug.Print "Family: " & .Family
            Debug.Print "InstallDate: " & .InstallDate
            Debug.Print "L2CacheSize: " & .L2CacheSize
            Debug.Print "L2CacheSpeed: " & .L2CacheSpeed
            Debug.Print "LastErrorCode: " & .LastErrorCode
            Debug.Print "Level: " & .Level
            Debug.Print "LoadPercentage: " & .LoadPercentage
            Debug.Print "Manufacturer: " & .Manufacturer
            Debug.Print "MaxClockSpeed: " & .MaxClockSpeed
            Debug.Print "Name: " & .Name
            Debug.Print "OtherFamilyDescription: " & .OtherFamilyDescription
            Debug.Print "PNPDeviceID: " & .PNPDeviceID
            Debug.Print "PowerManagementCapabilities: " & .PowerManagementCapabilities
            Debug.Print "PowerManagementSupported: " & .PowerManagementSupported
            Debug.Print "ProcessorId: " & .ProcessorId
            Debug.Print "ProcessorType: " & .ProcessorType
            Debug.Print "Revision: " & .Revision
            Debug.Print "Role: " & .Role
            Debug.Print "SocketDesignation: " & .SocketDesignation
            Debug.Print "Status: " & .Status
            Debug.Print "StatusInfo: " & .StatusInfo
            Debug.Print "Stepping: " & .Stepping
            Debug.Print "SystemCreationClassName: " & .SystemCreationClassName
            Debug.Print "SystemName: " & .SystemName
            Debug.Print "UniqueId: " & .UniqueId
            Debug.Print "UpgradeMethod: " & .UpgradeMethod
            Debug.Print "Version: " & .Version
            Debug.Print "VoltageCaps: " & .VoltageCaps
            Debug.Print "Description: " & .Description
            Debug.Print "Manufacturer: " & .Manufacturer
            Debug.Print "MaxClockSpeed: " & .MaxClockSpeed
        Next
    End With
 
End Sub