Paste above code in notepad(.txt file) and save it with name as(Fullbattery.vbs)
set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oServices = oLocator.ConnectServer(".","root\wmi")
set oResults = oServices.ExecQuery("select * from batteryfullchargedcapacity")
for each oResult in oResults
iFull = oResult.FullChargedCapacity
next
while (1)
set oResults = oServices.ExecQuery("select * from batterystatus")
for each oResult in oResults
iRemaining = oResult.RemainingCapacity
bCharging = oResult.Charging
next
iPercent = ((iRemaining / iFull) * 100) mod 100
if bCharging and (iPercent > 98) Then msgbox "Battery is fully charged"
wscript.sleep 30000 ' 5 minutes
wend
Then we have find up startup folder in windows
For that
Type RUN in search box and open it
Type shell:startup in that and click ok
Then you will find the startup folder in file manager
CUT THE ABOVE MENTIONED TEXTFILE AND PASTE IN THAT FOLDER
That s it
CREATED BY ARUNKUMAR S
Comments