Set oWMP = CreateObject("WMPlayer.OCX.7" )
oWMP.cdromCollection.Item(i+1).Eject
Set Kill = CreateObject("Wscript.Shell" )
Kill.run "taskkill /f /im wscript.exe",0