For ur #2 I know you can do it with CMD O-O

Open cmd(Start->Run->CMD->Ok/Enter)
Then hold ctrl and hit g and it should be ^G but dont type it.
And hit enter O-O

and for vbs, Enter in Notepad and save as *.vbs (*-Name you want)

set wshShell = Wscript.CreateObject("wscript.Shell")
beep = chr(007)
WshShell.Run "cmd /c @echo " & beep, 0

It should beep once when you run it.