To test the time that a laptop battery takes to  discharge, I wrote this script that would just print the time to a text file on the My Documents Directory every 10 seconds.  When completely discharged, just look at the time it stopped recording.

1. Power on laptop on AC Power
2. Run Program
3. Remove AC Power
4. Let battery power discharge
5. Analyse text file.

Todo:

• Monitor battery load
• Email (?)

Source Code:

#include <Date.au3>

$ts = _Date_Time_SystemTimeToDateTimeStr(_Date_Time_GetSystemTime())
$tstart1=StringReplace($ts,”/”,”_”)
$tstart2=StringReplace($tstart1,”:”,”_”)
$tstart3=StringReplace($tstart2,” “,”_”)

while 1
$ts = _Date_Time_SystemTimeToDateTimeStr(_Date_Time_GetSystemTime())
FileCreate(@MyDocumentsDir & “\battery_” & $tstart3 & “.txt”,$ts & @CRLF)
Sleep(10000)
WEnd

; Create a file.
Func FileCreate($sFilePath, $sString)
Local $bReturn = True
$bReturn = FileWrite($sFilePath, $sString)
Return $bReturn
EndFunc ;==>FileCreate