2014-03-01, 08:21
(2014-03-01, 02:41)Niksal12 Wrote: 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?
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
Replace the AutoRipComplete.vbs to this for each install of AutoRipDVD
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
colCDROMs.Item(0).Eject
set owmp = nothing
set colCDROMs = nothing
wscript.quit
Where it says
colCDROMs.Item(0).Eject
Change the number to change which drive it ejects. 0 = D: 1 = E: etc ie colCDROMs.Item(1).Eject or colCDROMs.Item(2).Eject etc. Just change that number save and then double click the vbs file to see which drive ejects. Don't have to do a whole rip to test or anything.
Cheers!