BIOSの情報を取得する: Win32_BIOS
■Topics
パソコンのBIOS上情報を取得するサンプルです。Win32_BIOSクラスを使用します。
Private Sub Command1_Click()
Dim BiosSet As SWbemObjectSet
Dim Bios As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set BiosSet = Service.ExecQuery("Select * From Win32_BIOS")
For Each Bios In BiosSet
MesStr = "BIOSの種類：" + Bios.Description + vbCrLf + _
"BIOSの製造元：" + Bios.Manufacturer + vbCrLf + _
"BIOSのシリアルナンバー：" + Bios.SerialNumber + vbCrLf + _
"BIOSのバージョン：" + Bios.SMBIOSBIOSVersion
Next
MsgBox "BIOSの色々な情報です。" + _
vbCrLf + MesStr + vbCrLf + "ですよ。"
Set BiosSet = Nothing
Set Bios = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim BiosSet As SWbemObjectSet
Dim Bios As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set BiosSet = Service.ExecQuery("Select * From Win32_BIOS")
For Each Bios In BiosSet
MesStr = "BIOSの種類：" + Bios.Description + vbCrLf + _
"BIOSの製造元：" + Bios.Manufacturer + vbCrLf + _
"BIOSのシリアルナンバー：" + Bios.SerialNumber + vbCrLf + _
"BIOSのバージョン：" + Bios.SMBIOSBIOSVersion
Next
MsgBox "BIOSの色々な情報です。" + _
vbCrLf + MesStr + vbCrLf + "ですよ。"
Set BiosSet = Nothing
Set Bios = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
では実行してみましょう。
BIOSの色々な情報が取得できたかと思います。
シリアルナンバーなども簡単に取得できてしまいます。
DELL PowerEdge(サービスタグを取得できるので何かと便利かも)やHP(COMPAQ) ProLiant 等サーバー機でもシリアルナンバーなどBIOS上の取得できました。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。