Read notebook battery status

[Erel]

The following code reads the status of a notebook battery:

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    obj.New1(False)
    obj.CreateNew("System.Windows.Forms.SystemInformation" & obj.System_Windows_Forms)
    obj.Value = obj.GetProperty("PowerStatus")

    Msgbox(FindPowerLineStatus, FindBatteryLifePercent)
End Sub

Sub FindBatteryLifePercent
    Return obj.GetProperty("BatteryLifePercent")
End Sub
Sub FindPowerLineStatus
    Return obj.GetProperty("PowerLineStatus") 'returns Offline or Online
End Sub

[Byak@]

or you can use a dzHW.dll
but may be you know how read a cpu usage and ram usage???

[Byak@]

what i'm found for c#
How to get CPU usage of processes and threads / System / C# Официальный сайт справочников World C++, World C#, ASM World