バッテリーの情報を取得する: Win32_Battery
■Topics
バッテリーの情報を取得するサンプルです。Win32_Batteryクラスを使用しています。
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
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
実行するとバッテリーの型番と電圧・残り使用時間が表示されます。Win32_Batteryクラス的にはもっといろいろな情報が取れそうなのですが Panasonic CF-B5ERではこの程度しか取れませんでした。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。