CDs Automatisch auf HDD kopieren

<#
    AUTO COPY DISK ON INSERT
#>
# ==============
# drive letter to monitor
$drive = 'E:'  
# backup root folder
$target = 'D:\Backup'  
# =============
# only continue if PS >= Version 3.0
if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}  
# create root folder if not exist
if (!(Test-Path $target)) {md $target -Force | out-null}

# delete eventcubscriber if there are still open ones
Get-EventSubscriber | Unregister-Event -Force
# shell object
$global:shell = New-Object -Com Shell.Application

# WMI Event Registration (Action fires when CD-Drive changes it's state)  
Register-WmiEvent -Query "Select * From __InstanceModificationEvent Within 1 where TargetInstance isa 'Win32_LogicalDisk' and TargetInstance.DriveType = 5 and TargetInstance.Size != null and TargetInstance.DeviceId = '$drive'" -SourceIdentifier 'RemovableDetector' -Action {  
    $deviceid = $Event.SourceEventArgs.NewEvent.TargetInstance.DeviceID
    $volserial = $Event.SourceEventArgs.NewEvent.TargetInstance.VolumeSerialNumber
    # create target subfolder with name format "disk_volumeserial_(datetime)"  
    $targetfolder = "$target\Disk_${volserial}_$(get-date -f yyyyMMdd-HHmmss)"  
    md $targetfolder -Force | out-null

    # list drive information
    write-host "New disk loaded." -F Green  
    write-host ($Event.SourceEventArgs.NewEvent.TargetInstance | select DeviceId, Description@{n='DiskSize';e={'{0:N2} MB' -f ($_.Size / 1MB)}} | ft -AutoSize | out-string)  
    
    write-host "Start copying disk to '$targetfolder' ... " -NoNewline -F Green  
    # copy to target
    copy-item "$deviceid\*" -Recurse -Destination $targetfolder -Force  
    # eject disk
    write-host "Finished. Ejecting disk '$deviceid' ..." -F Green  
    $global:shell.Namespace(17).ParseName($deviceid).Verbs() | ?{$_.Name.replace('&','') -match '^(Auswerfen|Eject)$'} | %{$_.Doit()}  
    write-host 'Waiting for next disk ...' -F Green  
} | out-null
cls
write-host 'Waiting for disk ...' -F Green  
while($true){sleep 1}

#include <Date.au3>
; Laufwerk
$drive = "E:"  
; Zielordner
$target = "D:\temp"  
; Dauerschleife
while 1
        ; Wenn Laufwerk READY dann fange an zu kopieren
	if DriveStatus($drive & "\") = "READY" then  
                ; aktuelles Datum holen
		$tm = _Date_Time_GetSystemTime()
                ; Zielordner zusammensetzen
		$destinationFolder = $target & "\disk_" & StringRegExpReplace(_Date_Time_SystemTimeToDateTimeStr($tm,1),"[/:\s]","")  
                ; Inhalt der CD kopieren
		DirCopy($drive,$destinationFolder)
                ; Disk auswerfen
		CDTray($drive,"open")  
	EndIf
        ; schlafen legen bis nächste Disk eingelegt wurde
	while DriveStatus($drive & "\") <> "READY"  
		Sleep(1)
	WEnd
Wend