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?

Weet jij het antwoord?

/2500

Hopelijk werkt het toevoegen van SystemSounds.Beep.Play(). Dan krijg je dit: If bCharging and (iPercent > 95) Then SystemSounds.Beep.Play() msgbox "Battery is at " & iPercent & "%",vbInformation, "Battery monitor" End If

Stel zelf een vraag

Ben je op zoek naar het antwoord op die ene vraag die je misschien al tijden achtervolgt?

/100