■Topics

---

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

---

■Sample Code

---

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

---

■Comment

---

では実行してみましょう。
BIOSの色々な情報が取得できたかと思います。
シリアルナンバーなども簡単に取得できてしまいます。

---