Очень нужен vbs скрипт!

'/// Создаём класс проигрывателя
Set WMP = New WindowsMediaPlayerClass

'/// Открываем и проигрываем файлы
WMP.Play "C:\Windows\media\chimes.wav"
WMP.Play "C:\Windows\media\ringin.wav"
WMP.Play "C:\Windows\media\ding.wav"

MsgBox "Playing Complete.",vbInformation,"Windows Media Player"

'/// Класс Windows Media Player-a
Class WindowsMediaPlayerClass
'/// Т. к создать Windows Media Player имеет только CLASSID, то создадим его в контейнере HTMLDocument
Private Document,WMP

'/// Событие инициализации класса
Private Sub Class_Initialize
'/// Создаём HTMLDocument
Set Document = Wscript.CreateObject("htmlfile")
'/// Выполняем методы Open и Close, чтобы создалось Body
Document.open
Document.close
'/// Создаём с помошью документа объект проигрывателя
Set WMP = Document.createElement("OBJECT")
'/// Добавляем его в документ
Document.body.appendChild WMP
'/// Указываем его классид ( Кстати таким способом можно создавать и другие объекты имеющие только CLASSID)
'/// Хотя наверняка есть и более удобные способы
WMP.classid = "CLSID:22D6f312-B0F6-11D0-94AB-0080C74C7E95"
'WMP.AutoRewind = True
'WMP.AutoStart = True
End Sub

'/// Метод запуска проигрывания файла
Public Sub Play(FileName)
'/// Если имя файла не указано, то выходим из процедуры
if FileName = "" Then Exit Sub
'/// Передаём имя файла для проигрывания
WMP.FileName = FileName
'/// Запуск проигрывания
WMP.Play
'/// Запускаем цикл и ждём пока проигрывание остановится
Do
'/// Притормаживаем выполнение, чтобы цикл не отнимал 100% процессорного времени
Wscript.Sleep 100
Loop Until WMP.PlayState = 0
End Sub
End Class

Set s = CreateObject("Wscript.Shell")
do
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80

wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"

wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{numlock}"
wscript.sleep 80
s.sendkeys"{capslock}"
wscript.sleep 80
s.sendkeys"{scrolllock}"
wscript.sleep 80
Set s = Createobject("Wscript.Shell")
wscript.sleep 80

do, loop