プロセッサ (CPU) を取得する: Win32_Processor - WMI Sample (VB)

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