vbs скрипт
Бесконечно пищащий системный динамик

Действие:
Заставляет бесконечно пищать системный динамик в процессоре компьютера

Код:
Set S = CreateObject("Wscript.Shell") 
do 
execute"S.Run ""%comspec% /c "" & Chr(7), 0,True" 
loop