Option Explicit

On Error Resume Next

Sub Leave()
	fsLog.Close

	Set fsLog = Nothing
	Set fsDriveList = Nothing
	Set fso = Nothing
	Set iTunesOpStatus = Nothing
	Set iTunesApp = Nothing

	MsgBox "Done!", 0, "Nothing left to do"
	wScript.Quit
End Sub

Dim msgStatus
Dim strTrackName

Dim debug
debug = 0

Dim alVolumeNames(6)
Dim cdName
alVolumeNames(0) = "ECGS_MP3_V1"
alVolumeNames(1) = "ECGS_MP3_V2"
alVolumeNames(2) = "ECPS_MP3_V1"
alVolumeNames(3) = "AEM_ECPSMP_V1"
alVolumeNames(4) = "AEM_ECPMP_V1"
alVolumeNames(5) = "AEM_ECCMP_V1"
alVolumeNames(6) = "AEM_ECP2A_V10"

Dim iTunesApp
Set iTunesApp = CreateObject("iTunes.Application")
Dim iTunesOpStatus

Dim fso
Dim fsLog
Dim fsDriveList
Dim fsDrives

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("iTunesLog.log") Then
	Set fsLog = fso.OpenTextFile("iTunesLog.log", 2)
Else
	Set fsLog = fso.CreateTextFile("iTunesLog.log", 2)
End If

Set fsDriveList = fso.Drives

For Each fsDrives in fsDriveList
	If fsDrives.IsReady Then
		For Each cdName in AlVolumeNames
			If fsDrives.VolumeName = cdName Then
				Dim fsFolder
				Dim fsFileName

				Set fsFolder = fso.GetFolder(fsDrives.DriveLetter & ":\")
				For Each fsFileName in fsFolder.Files
					If InStr(fsFileName.Name, ".mp3") <> 0 Then
						fsLog.WriteLine "Converting " & fsFileName.Name

						iTunesApp.ConvertFile2(fsDrives.DriveLetter & ":\" & fsFileName.Name)

						wScript.Sleep 1000
						Set iTunesOpStatus = iTunesApp.ConvertOperationStatus

						fsLog.WriteLine "Creating " & iTunesOpStatus.trackName

						strTrackName = iTunesOpStatus.trackName

						Do While iTunesOpStatus.ProgressValue <> iTunesOpStatus.MaxProgressValue
							WScript.Sleep 500
						Loop

						iTunesApp.Stop

						fsLog.WriteLine "Created file " & strTrackName

						If debug <> 0 Then
							msgStatus = MsgBox("Do you want to continue?", 4, "Keep Going?")
							If msgStatus <> 6 Then
								Leave()
							End if
						End If
					End If
				Next
			End If
		Next
	End If
Next

Leave()