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

Cкрипт заставляет бесконечно пищать системный динамик в процессоре компьютера.

Чтобы включить скрипт необходимо открыть блокнот, вставить туда vbs скрипт и сохранить с расширением *.vbs, а затем просто запустить.

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