2014-03-01, 02:41
I am trying to rip all of the movies in my collection which is about 800 movies. I have a tower in my closet that has 4 DVD drives, I used this script and it does not want to work. I installed it into 4 different directories and edit each of the 4 bat files. Each bat file is looking at each individual drive and saving to the same folder, so I run the bat file and it sees each individual movie with no issues. however when it starts MakeMKV each instance starts to read the same single disc. Any help would be appriciated.
EDIT: I figured that part out, it was an edit that had to be make when it calls for makemkv to start. Now I am having another issue, when one disc finishes it ejects the one that is done as well as the 3 other drives. This is the complete vbs script. How would i edit this so it only ejects one disc at a time?
EDIT: I figured that part out, it was an edit that had to be make when it calls for makemkv to start. Now I am having another issue, when one disc finishes it ejects the one that is done as well as the 3 other drives. This is the complete vbs script. How would i edit this so it only ejects one disc at a time?
Code:
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
'MSGBOX "YOUR CD IS: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetter
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
wscript.quit