Set Shell = WScript.CreateObject("WScript.Shell")
Shell.Run "%comspec% /c echo " & Chr(07), 0, True
Shell.Run "%comspec% /c echo " & Chr(07), 0, True
Shell.Run "%comspec% /c echo " & Chr(07), 0, True
 WScript.Sleep 1000
Shell.Run "%comspec% /c echo " & Chr(07), 0, True
Shell.Run "%comspec% /c echo " & Chr(07), 0, True
 WScript.Sleep 1000
Shell.Run "%comspec% /c echo " & Chr(07), 0, True
Shell.Run "%comspec% /c echo " & Chr(07), 0, True
Shell.Run "%comspec% /c echo " & Chr(07), 0, True