マザーボードの情報を取得する: Win32_BaseBoard
■Topics
マザーボードの情報を取得するサンプルです。Win32_BaseBoardクラスを使用します。
Private Sub Command1_Click()
Dim BaseSet As SWbemObjectSet
Dim Base As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set BaseSet = Service.ExecQuery("Select * From Win32_BaseBoard")
For Each Base In BaseSet
MesStr = "マザーボードの製造元：" + Base.Manufacturer + vbCrLf + _
"マザーボードの製品名：" + Base.Product + vbCrLf + _
"マザーボードのバージョン：" + Base.Version
Next
MsgBox "マザーボードの色々な情報です。" + _
vbCrLf + MesStr + vbCrLf + "ですよ。"
Set BaseSet = Nothing
Set Base = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim BaseSet As SWbemObjectSet
Dim Base As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set BaseSet = Service.ExecQuery("Select * From Win32_BaseBoard")
For Each Base In BaseSet
MesStr = "マザーボードの製造元：" + Base.Manufacturer + vbCrLf + _
"マザーボードの製品名：" + Base.Product + vbCrLf + _
"マザーボードのバージョン：" + Base.Version
Next
MsgBox "マザーボードの色々な情報です。" + _
vbCrLf + MesStr + vbCrLf + "ですよ。"
Set BaseSet = Nothing
Set Base = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行してみるとマザーボードの製造元や製品名などの情報が取得できます。
もちろんマザーボード上にこれらの情報が登録されている必要がありますが…。
メーカー製パソコンなどであればメーカーなどが登録されているでしょう。
BIOSの情報と組み合わせて使用すればパソコン機種の切り分けに使えるかもしれません。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。