■Topics

---

Processorの情報を取得するサンプルです。Win32_Processorクラスを使用します。

---

■Sample Code

---

Private Sub Command1_Click()

Dim PrcSet As SWbemObjectSet
Dim Prc As SWbemObject
Dim Locator As SWbemLocator
Dim Service As Object
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set PrcSet = Service.ExecQuery("Select * From Win32_Processor")

For Each Prc In PrcSet

    MesStr = MesStr + _
    "Processorの種類：" + Prc.Description + vbCrLf + _
    "Processorの名前：" + Prc.Name + vbCrLf + _
    "Processorの製造元：" + Prc.Manufacturer + vbCrLf + _
    "Processorの現在の周波数：" + CStr(Prc.CurrentClockSpeed) + vbCrLf + _
    "Processorの最大周波数：" + CStr(Prc.MaxClockSpeed) + vbCrLf + _
    "ProcessorのL2キャッシュサイズ：" + CStr(Prc.L2CacheSize) + vbCrLf

Next


MsgBox "Processorの色々な情報です。" + _
            vbCrLf + MesStr + "ですよ。"

Set PrcSet = Nothing
Set Prc = Nothing
Set Service = Nothing
Set Locator = Nothing

End Sub

---

■Comment

---

では実行してみましょう。
マシンに搭載しているProcessorを列挙して、
Processorの種類の判別や周波数を取得します。
Dual CPUのマシンとかで試せないので動くかどうかは不明です。

ちなみに私はSpeedStepに対応しているPIIIノートパソコンを使っているのですが、
どうもCurrentClockSpeedの取得がうまくいきません。
たまに4MHzとして認識してしまっているようです。(爆)
SpeedStepに対応していないただのMMX Pentiumノートパソコンでは
そのようなことがなかったのであくまで省電力の影響かなと個人的には思っています。
もしよかったら皆さん試して見て結果を教えてくださいな。お願いします。

---