Dateien von Wechsel Datenträger auf Festplatte kopieren

Hallo,

ich möchte einige DVDs (keine vobs!) auf eine Festplatte sichern, dazu soll eine eingelegte DVD automatisch in ein Verzeichnis kopiert werden. Es soll die Dateien in ein Unterverzeichnis mit dem Namen des Datenträger kopiert werden, gff. sollen Dateien mit gleichen Namen umbenannt werden. Nach dem Kopieren soll der Datenträger ausgeworfen werden.

Im Netz habe ich nun schon einige Zeit damit verbracht ein Tool oder Skript für die Automation zu finden, leider bisher ohne Erfolg. Das einfache kopieren mit xcopy jetzt nicht so das Problem, aber beim Laufwerk auswerfen und Ordner erstellen mit Datenträgernamen hapert es noch.


Grüße,

DonJoe

Set oWMP = CreateObject("WMPlayer.OCX.7" )   
Set colCDROMs = oWMP.cdromCollection 

if colCDROMs.Count >= 1 then 
For i = 0 to colCDROMs.Count - 1 
colCDROMs.Item(i).Eject 
Next ' cdrom    
End If