' create shell object
Set WshShell = CreateObject("WScript.Shell")

' Create dMC Object
Set dMC = CreateObject("dMCScripting.Converter")


' Get list of compression codecs
Dim Codec
For i = 0 To 10000
 Codec = dMC.GetCompressions(i)
 If Codec = "" Then Exit For
 Call WshShell.Popup(Codec, , "Codecs Installed", 0)
Next


' Do one conversion
'Call dMC.Convert("z:\abc.ape", "z:\new file.mp3", "mp3 (Lame)", "-b=128", "")


' Read All IDTags
For i = 0 To 10000
 Dim ElementValue
 ElementValue = dMC.ReadIDTagElementValue("z:\abc.ape", i)
 If ElementValue = "" Then Exit For
 Call WshShell.Popup(ElementValue, , "Read Tag", 0)
Next


'Write an ID Tag
Call dMC.WriteIDTag("z:\abc.ape", "an element", "a value")


' Show compression settings page
Dim CompressionCLI
CompressionCLI = "-b=128"
CompressionCLI = dMC.ShowSettings("mp3 (Lame)", CompressionCLI)
Call WshShell.Popup(CompressionCLI, , "Returned Compression CLI", 0)

'Read audio properties of a file
Dim AudioProps
AudioProps = dMC.AudioProperties("z:\abc.ape")
Call WshShell.Popup(AudioProps, , "Returned Audio Properties", 0)