バッテリーの情報を取得する: Win32_Battery - WMI Sample (VB)

Private Sub Command1_Click()

Dim BatSet As SWbemObjectSet
Dim Bat As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set BatSet = Service.ExecQuery("Select * From Win32_Battery")

For Each Bat In BatSet

MesStr = MesStr & "バッテリーの名前：" & Bat.Name & vbCrLf & _
"バッテリーのデバイスID：" & Bat.DeviceID & vbCrLf & _
"バッテリーの電圧：" & Bat.DesignVoltage & vbCrLf & _
"バッテリーの残り使用時間：" & Bat.EstimatedRunTime & vbCrLf

Next

MsgBox "バッテリーの情報です。" & vbCrLf & _
vbCrLf & MesStr & vbCrLf & "ですよ。"

Set BatSet = Nothing
Set Bat = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub