createAudio.vbs

Const SAFT48kHz16BitStereo = 39
Const SSFMCreateForWrite = 3

Dim oFileStream, oVoice

Set oFileStream = CreateObject("SAPI.SpFileStream")
oFileStream.Format.Type = SAFT48kHz16BitStereo
oFileStream.Open "C:\Temp\Sample.wav", SSFMCreateForWrite

Set oVoice = CreateObject("SAPI.SpVoice")
Set oVoice.AudioOutputStream = oFileStream
oVoice.Speak "FWAAAAAAAAAAF"

oFileStream.Close