Amankan Baterai Laptop

Sudah berganti baterai laptop untuk kedua kali. Laptop yang kudunakan dalam coding adalah Asus A44H. Memang ini bukanlah notebook dengan spek khusus gaming yang handal, namun laptop inisudah menyatu dengan jiwa meskipun banyak kekurangan yang dimiliki termasuk port Blouetooth yang tidak tersedia.

Dahulu, karena lupa mencabut colokan listrik untuk proses charging membuat baterai cepat rusak. Lupa mungkin karena keasyikan didepan laptop itu sendiri. Dan hingga akhirnya harus berulang kembali untuk mencabutnya. Baterai cepat kehabisan daya dan rusak sudah. Padahal belinya baterai pengganti juga Ori (katanya gitu). Entah bagaimana membedakan baterai KW, ORI dan Refurbish, semua nampak sama. Tapi menurutku asal itu bisa tahan lebih dari 3 jam itu berarti dah ORI.

Kelupaan mencabut charger saat penuh itu hal biasa, karena memang kita tidak mendapatkan notifikasi saat baterai akan penuh maupun sudah penuh. Cari-cari dipengaturan baterai juga tidak akan menemukan. Tapi untunglah berkat cara dari The Windows Club yang membuat notifikasi saat baterai akan penuh, sangatlah membantu.

Berikut adalah caranya:
Silakan buka notepad dan buat file dengan ekstensi .vbs dengan isi sebagai berikut:

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 > 95) Then msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor"
          wscript.sleep 30000 ' 5 minutes
        wend
    

Jika sudah, selanjutnya adalah jalankan secara otomatis, letakkan shortcut file tadi pada startup progrm windows pada folder berikut :

C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp
    

Dan, taraaa ... silakan coba sendiri ya.

Terimakasih,

Toto Prayogo