VB6でCPU情報の取得

質問

現在事情がありVB6の勉強をしております。
VB6でCPU情報を取得したいと思っているのですが、インターネット等を調べてもそれらしいものがありませんでした。
具体的にはシステムのプロパティを開いたときに表示されるCPUの種類とクロック数（他にもCPUに関する情報が取得できれば）が取得したいのですが、取得できる方法をご教示ください。

回答No.1

korin_ · ベストアンサー

この辺りが参考になると思います。

CPU情報を取得する（Win32_Processor）
http://pwp1.atcms.jp/mokurin/index.php?WMI%2F%A5%CF%A1%BC%A5%C9%A5%A6%A5%A7%A5%A2

CPUの種類は objItem.Description
クロック数は objItem.CurrentClockSpeed
で良いと思います。
その他の情報を取得するにはこちらを参考にしてください。
http://msdn.microsoft.com/ja-jp/library/aa394373(en-us).aspx

回答No.6

korin_

こんにちは。
どうやら、OSのバグみたいです。
以下のリンク先から、修正プログラムがダウンロード出来ます。
http://support.microsoft.com/kb/953955/ja

修正プログラムを適用するには、Windows XP Service Pack 2 (SP2) または Windows XP Service Pack 3 (SP3) インストールが必要です。

お礼

korin_様

修正プログラムを適用することで正しいCPU名を取得することが
できました。
ご丁寧に対応いただき、ありがとうございました。

回答No.5

korin_

こんにちは。

CPUの名前は、objItem.Name で取得できませんか？
こちらには取得出来るプロパティ一覧がありますので参考にしてください。
http://msdn.microsoft.com/ja-jp/library/aa394373(en-us).aspx​

お礼

korin_様

ご教示ありがとうございます。
objItem.Name を試してみましたが、当方の使用しているCPUは
Core 2 Duo E8500なのですが、
「Intel Pentium III Xeon プロセッサ」と取得されました。
ご呈示頂いたサイトにはCore 2 Duoの記述がなかったので
この方法では最近のCPUには対応できないのでしょうか？

回答No.4

korin_

とりあえず、種類とクロック数を取得するように書いてみました。
ご参考にどうぞ。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim objItem As Object
Dim colSettings As Object

Set colSettings = _
GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
("select * from Win32_Processor")

For Each objItem In colSettings
Debug.Print objItem.Description
Debug.Print objItem.MaxClockSpeed
Next
End Sub

補足

korin_様

ご返信ありがとうございます。
ご呈示頂いた方法でCPUの情報を取得できましたが、
CPU名の取得は無理なのでしょうか？

回答No.3

imogasi

http://sakura.canvas.ne.jp/spr/mycroft/dat/vb/sysinfo.html
というのがありました。
OSの問題でXP、Vistaは入っていませんが。
（当方仕様経験のあるものではありません。）
その他
http://questionbox.jp.msn.com/qa678501.html
＞Windows APIでCPUのクロック数やwindowsのバージョンなどを
取得する事ができることはわかったのですが

回答No.2

korin_

すみません、間違えました。orz
クロック数は objItem.MaxClockSpeed です。