this script version works for me with EAC
(if you don't touch the keyboard/mouse while ripping&encoding)
Function CallQuickTime(Path)
Dim fso, mp4, mp5, c, Car, QT, Str, wav, wavx
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Str = ""
For c = 1 To Len(Path)
If Mid(Path, c, 1) = "\" Then
Str = Str & "\\"
Else
Str = Str & Mid(Path, c, 1)
End If
Next
' get filename.wav
For c = 1 to Len(Path)
If Mid(Path, c, 1) = "\" Then
wavx=c
Else
End If
Next
wav=Right(Path,Len(Path)-wavx)
wav=Left(wav,Len(Path)-3)
mp4 = Left(Path, Len(Path)-3) & "mp4"
Path = Chr(34) & Str & Chr(34)
QT = Chr(34) & "C:\\Program Files\\QuickTime\\QuickTimePlayer.exe " & Chr (34)
WshShell.Run(QT & Path)
WScript.Sleep 3000
WshShell.AppActivate(wav)
WScript.Sleep(100)
WshShell.AppActivate(wav)
WshShell.AppActivate(wav)
WshShell.SendKeys "^E"
WScript.Sleep 500
WshShell.SendKeys ("C:\Temp.mp4")
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 9999
While fso.FileExists ("C:\Temp.mp5")
WScript.Sleep 1000
Wend
Do
Loop Until fso.FileExists("C:\Temp.mp4")
WScript.Sleep 2000
WshShell.SendKeys "^W"
WScript.Sleep 500
fso.MoveFile "C:\Temp.mp4" , mp4
Set fso = Nothing
WScript.Sleep 1000
End Function
Dim wav
Set objArgs = WScript.Arguments
wav = objArgs(0)
mp4 = objArgs(1)
CallQuickTime(wav)
WshShell.Run("taskkill /f /im CScript.exe")
Wscript.Quit
p.s. the only thing i need now is Case's tag with apple's MP4 tagging code from menno...