Welke tekst/code moet ik toevoegen om dit script een geluidsnotificatie te geven?
Ik heb een script gemaakt dat ik een notificatie ontvang wanneer de batterij mijn Windows 10 laptop FULL is.
Ik krijg de melding maar maar er is geen geluid die te horen is wanneer de scrip is gestart.
hier is de script code:
set oLocator = CreateObject("WbemScripting.SWbemLocator")
set oServices = oLocator.ConnectServer(".","rootwmi")
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
kan iemand mij helpen over welke tekst/code moet ik toevoegen om deze script een geluid notificatie te geven?
