Скрипт Был взят  с групы https://vk.com/vbs_script

1)  Системный динамик пищит музыку

-----------------------------------------------------------------------------------------------------------------------------
With CreateObject("WScript.Shell")
b = "%comspec% /c echo " & Chr(7)
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
.Run b, 0, True
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
.Run b, 0, True
.Run b, 0, True
.Run b, 0, True
WScript.Sleep 200
.Run b, 0, True
.Run b, 0, True
WScript.Sleep 2000
End With

-----------------------------------------------------------------------------------------------------------------------------