BIOSの情報を取得する

---

WMIはおもしろいですね。つーことで一発芸的なネタ。BIOSの情報を取得するサンプルです。VB6とVBAで動作確認しました。

Sub Sample()
    ''BIOSの情報を取得する
    Dim Locator, Service, BiosSet, Bios, buf As String
    Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Set Service = Locator.ConnectServer()
    Set BiosSet = Service.ExecQuery("Select * From Win32_BIOS")
    
    For Each Bios In BiosSet
        buf = "BIOSの種類：" & Bios.Description & vbCrLf & _
              "BIOSの製造元：" & Bios.Manufacturer & vbCrLf & _
              "BIOSのシリアルナンバー：" & Bios.SerialNumber & vbCrLf & _
              "BIOSのバージョン：" & Bios.SMBIOSBIOSVersion
    Next Bios
    MsgBox buf
    
    Set BiosSet = Nothing
    Set Service = Nothing
    Set Locator = Nothing
End Sub