Wav File Properties { sapi.dll }

'============================================================================'   
 ' NAME    : WavProp                                                         '   
 ' AUTHOR  : C.J.B                                                           '  
 ' DATE    : 1/9/2010                                                        '   
 ' VERSION : 0.0.1                                                           '   
 ' COMMENT : Needs sapi.dll 5.0+                                             '   
 ' REPORTS : AudioFormatType , AvgBytesPerSec , BitsPerSample                '   
 '         : BlockAlign , Channels , ExtraData , FormatTag , SamplesPerSec   '   
 '==========================================================================='   
 Option Explicit   
 
 Const SSFMOpenForRead = 0   
 
 Dim inFileStream   
 Dim AudioFormat   
 Dim WaveFormatEx   
 
 Set inFileStream = CreateObject( "SAPI.SpFileStream" )        ' ISpeechFileStream   
 inFileStream.Open WScript.Arguments(0) , SSFMOpenForRead   
 Set AudioFormat = inFileStream.Format                         ' ISpeechAudioFormat   
 WScript.Echo Enum_SpeechAudioFormatType( AudioFormat.Type )   
 Set WaveFormatEx = AudioFormat.GetWaveFormatEx                ' ISpeechWaveFormatEx            
 WScript.Echo GetWaveInfo( WaveFormatEx )   
 inFileStream.Close   
 CleanUp()   
 
 Function GetWaveInfo( WFEx )   
 GetWaveInfo = "AvgBytesPerSec " & WFEx.AvgBytesPerSec  & VbNewLine &_   
 "BitsPerSample  " & WFEx.BitsPerSample   & VbNewLine &_   
 "BlockAlign     " & WFEx.BlockAlign      & VbNewLine &_   
 "Channels       " & WFEx.Channels        & VbNewLine &_   
 "ExtraData      " & WFEx.ExtraData       & VbNewLine &_   
 "FormatTag      " & WFEx.FormatTag       & VbNewLine &_   
 "SamplesPerSec  " & WFEx.SamplesPerSec   
 End Function   
 
 Function Enum_SpeechAudioFormatType( inAudioFormatType )   
 Select Case     inAudioFormatType   
 Case -1  Enum_SpeechAudioFormatType = "SAFTDefault"   
 Case  0  Enum_SpeechAudioFormatType = "SAFTNoAssignedFormat"   
 Case  1  Enum_SpeechAudioFormatType = "SAFTText"   
 Case  2  Enum_SpeechAudioFormatType = "SAFTNonStandardFormat"   
 Case  3  Enum_SpeechAudioFormatType = "SAFTExtendedAudioFormat"   
 Case  4  Enum_SpeechAudioFormatType = "SAFT8kHz8BitMono"   
 Case  5  Enum_SpeechAudioFormatType = "SAFT8kHz8BitStereo"   
 Case  6  Enum_SpeechAudioFormatType = "SAFT8kHz16BitMono"   
 Case  7  Enum_SpeechAudioFormatType = "SAFT8kHz16BitStereo"   
 Case  8  Enum_SpeechAudioFormatType = "SAFT11kHz8BitMono"   
 Case  9  Enum_SpeechAudioFormatType = "SAFT11kHz8BitStereo"   
 Case 10  Enum_SpeechAudioFormatType = "SAFT11kHz16BitMono"   
 Case 11  Enum_SpeechAudioFormatType = "SAFT11kHz16BitStereo"   
 Case 12  Enum_SpeechAudioFormatType = "SAFT12kHz8BitMono"   
 Case 13  Enum_SpeechAudioFormatType = "SAFT12kHz8BitStereo"   
 Case 14  Enum_SpeechAudioFormatType = "SAFT12kHz16BitMono"   
 Case 15  Enum_SpeechAudioFormatType = "SAFT12kHz16BitStereo"   
 Case 16  Enum_SpeechAudioFormatType = "SAFT16kHz8BitStereo"   
 Case 17  Enum_SpeechAudioFormatType = "SAFT16kHz8BitMono"   
 Case 18  Enum_SpeechAudioFormatType = "SAFT16kHz16BitMono"   
 Case 19  Enum_SpeechAudioFormatType = "SAFT16kHz16BitStereo"   
 Case 20  Enum_SpeechAudioFormatType = "SAFT22kHz8BitMono"   
 Case 21  Enum_SpeechAudioFormatType = "SAFT22kHz8BitStereo"   
 Case 22  Enum_SpeechAudioFormatType = "SAFT22kHz16BitMono"   
 Case 23  Enum_SpeechAudioFormatType = "SAFT22kHz16BitStereo"   
 Case 24  Enum_SpeechAudioFormatType = "SAFT24kHz8BitMono"   
 Case 25  Enum_SpeechAudioFormatType = "SAFT24kHz8BitStereo"   
 Case 26  Enum_SpeechAudioFormatType = "SAFT24kHz16BitMono"   
 Case 27  Enum_SpeechAudioFormatType = "SAFT24kHz16BitStereo"   
 Case 28  Enum_SpeechAudioFormatType = "SAFT32kHz8BitMono"   
 Case 29  Enum_SpeechAudioFormatType = "SAFT32kHz8BitStereo"   
 Case 30  Enum_SpeechAudioFormatType = "SAFT32kHz16BitMono"   
 Case 31  Enum_SpeechAudioFormatType = "SAFT32kHz16BitStereo"   
 Case 32  Enum_SpeechAudioFormatType = "SAFT44kHz8BitMono"   
 Case 33  Enum_SpeechAudioFormatType = "SAFT44kHz8BitStereo"   
 Case 34  Enum_SpeechAudioFormatType = "SAFT44kHz16BitMono"   
 Case 35  Enum_SpeechAudioFormatType = "SAFT44kHz16BitStereo"   
 Case 36  Enum_SpeechAudioFormatType = "SAFT48kHz8BitMono"   
 Case 37  Enum_SpeechAudioFormatType = "SAFT48kHz8BitStereo"   
 Case 38  Enum_SpeechAudioFormatType = "SAFT48kHz16BitMono"   
 Case 39  Enum_SpeechAudioFormatType = "SAFT48kHz16BitStereo"   
 Case 40  Enum_SpeechAudioFormatType = "SAFTTrueSpeech_8kHz1BitMono"   
 Case 41  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_8kHzMono"   
 Case 42  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_8kHzStereo"   
 Case 43  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_11kHzMono"   
 Case 44  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_11kHzStereo"   
 Case 45  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_22kHzMono"   
 Case 46  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_22kHzStereo"   
 Case 47  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_44kHzMono"   
 Case 48  Enum_SpeechAudioFormatType = "SAFTCCITT_ALaw_44kHzStereo"   
 Case 49  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_8kHzMono"   
 Case 50  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_8kHzStereo"   
 Case 51  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_11kHzMono"   
 Case 52  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_11kHzStereo"   
 Case 53  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_22kHzMono"   
 Case 54  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_22kHzStereo"   
 Case 55  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_44kHzMono"   
 Case 56  Enum_SpeechAudioFormatType = "SAFTCCITT_uLaw_44kHzStereo"   
 Case 57  Enum_SpeechAudioFormatType = "SAFTADPCM_8kHzMono"   
 Case 58  Enum_SpeechAudioFormatType = "SAFTADPCM_8kHzStereo"   
 Case 59  Enum_SpeechAudioFormatType = "SAFTADPCM_11kHzMono"   
 Case 60  Enum_SpeechAudioFormatType = "SAFTADPCM_11kHzStereo"   
 Case 61  Enum_SpeechAudioFormatType = "SAFTADPCM_22kHzMono"   
 Case 62  Enum_SpeechAudioFormatType = "SAFTADPCM_22kHzStereo"   
 Case 63  Enum_SpeechAudioFormatType = "SAFTADPCM_44kHzMono"   
 Case 64  Enum_SpeechAudioFormatType = "SAFTADPCM_44kHzStereo"   
 Case 65  Enum_SpeechAudioFormatType = "SAFTGSM610_8kHzMono"   
 Case 66  Enum_SpeechAudioFormatType = "SAFTGSM610_11kHzMono"   
 Case 67  Enum_SpeechAudioFormatType = "SAFTGSM610_22kHzMono"   
 Case 68  Enum_SpeechAudioFormatType = "SAFTGSM610_44kHzMono"   
 End Select   
 End Function   
 
 Sub CleanUp()   
 Set(AudioFormat)=Nothing   
 Set(inFileStream)=Nothing   
 Set(WaveFormatEx)=Nothing   
 WScript.Quit   
 End Sub