Visualizzare lo stato della batteria in VB.NET

VB.NET ci da tutta una serie di strumenti per interrogare il sistema e reperire informazioni.

In questo articolo vediamo come usare ManagementObjectSearcher per visualizzare lo stato della batteria.

Ovviamente considerate che è compatibile solo con Windows.

Inoltre è probabile che dobbiate aggiungere il riferimento a System.Management; nel mio caso ho dovuto installarlo da NuGet.

Detto ciò:

Imports System.Management

Module Program

    Sub Main(args As String())
        Dim mos As ManagementObjectSearcher = New ManagementObjectSearcher("SELECT * FROM Win32_Battery")

        For Each mo As ManagementObject In mos.[Get]()
            Console.WriteLine("NOME BATTERIA: {0}", mo("Name"))
            Console.WriteLine("CARICAMENTO: {0}%", mo("EstimatedChargeRemaining"))
        Next
    End Sub

End Module

Enjoy!