Script batteria < 30%

[GiuCi]

Salve a tutti.
Ho la necessità di creare uno script che mi fornisca un messaggio di warning ogni volta che, a cavo scollegato, la batteria del pc scende al disotto di un certo valore (30% nella fattispecie)
Siccome non sono sufficientemente esperto, sono riuscito a realizzarne uno (.vbs) ma funziona solo con alimentazione collegata
Grazie in anticipo a coloro che risponderanno

[Dylan666]

Windows lo fa già senza script:
https://www.htnovo.net/2016/08/soluzion ... ws-10.html

[Dylan666]

Se proprio vuoi uno script usa questo:
https://www.vbsedit.com/scripts/Hardwar ... cr_362.asp

objItem.BatteryStatus è a 2 se con l'alimentazione e 1 se a batteria

[GiuCi]

Se proprio vuoi uno script usa questo:
https://www.vbsedit.com/scripts/Hardwar ... cr_362.asp

objItem.BatteryStatus è a 2 se con l'alimentazione e 1 se a batteria

Grazie per questa risposta, ma non mi indica la % di batteria, solo se il pc è in carica o meno (a parte tutte le altre info che nn mi servono ovviamente)

[Dylan666]

Ricerca:
https://www.google.com/search?q=percent+battery+vbs

Primo risultato:
https://gist.github.com/0xABD/1591886

La variabile è quindi objItem.EstimatedChargeRemaining

[GiuCi]

Ricerca:
https://www.google.com/search?q=percent+battery+vbs

Primo risultato:
https://gist.github.com/0xABD/1591886

La variabile è quindi objItem.EstimatedChargeRemaining

ok, questo fornisce la % attuale, sia in carica che non.
Ora come faccio a far comparire il messaggio quando la batteria è <30%?

Se può servire per aiutarmi, col seguente script faccio uscire un messaggio quando (in carica) la batteria arriva al 77%..

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

[Dylan666]

Con molta poca fantasia e semplicemente unendo il contenuto dei due link miei al codice tuo il risultato è questo:

Codice: Seleziona tutto

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery")
while (1)
For Each objItem in colItems
if (objItem.BatteryStatus = 1) and (objItem.EstimatedChargeRemaining < 30) Then
    Wscript.Echo "Autonomia al " & objItem.EstimatedChargeRemaining & "%"
end if
Next
wscript.sleep 30000 ' 5 minutes
wend

Per controllare se è in carica e al 77% basta cambiare la parte "if"

Codice: Seleziona tutto

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery")
while (1)
For Each objItem in colItems
if (objItem.BatteryStatus = 2) and (objItem.EstimatedChargeRemaining > 77) Then
    Wscript.Echo "Autonomia al " & objItem.EstimatedChargeRemaining & "%"
end if
Next
wscript.sleep 30000 ' 5 minutes
wend

La parte "while(1)", "wscript.sleep 30000" e "wend" server a ripetere il controllo ogni 5 minuti

[Dylan666]

Meglio ancora potresti unire i due script in uno solo

Codice: Seleziona tutto

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery")
while (1)
For Each objItem in colItems
if (objItem.BatteryStatus = 1) and (objItem.EstimatedChargeRemaining < 30) Then
    Wscript.Echo "Batteria residua al " & objItem.EstimatedChargeRemaining & "%"
end if
if (objItem.BatteryStatus = 2) and (objItem.EstimatedChargeRemaining > 77) Then
    Wscript.Echo "Batteria carica al " & objItem.EstimatedChargeRemaining & "%"
end if
Next
wscript.sleep 30000 ' 5 minutes
wend