لقيت برنامج بسجل الصوت بس ما بعرف ليش بعطيني خطا

السلام عليكم ورحمة الله وبركاته

Dim rec

Set rec = CreateObject("AudioCtl.AudioRecord.1")

'Select sound device 0

rec.DeviceIndex = 0

'Set output file

rec.SetOutputFileName "1.mp3"

'Start record with given parameters, record mp3 audio

rec.StartRecord 2, 11025

'Record for 10 secs

WScript.Sleep 10000

'Stop Record

rec.StopRecord