CD-Rom Aç/Kapat

alias cdrom {
  if ($istok(tak.cikar,$1,46)) {  
    var %sjn $+(cd,$ticks)
    .comopen %sjn WMPlayer.OCX.7
    noop $com(%sjn,cdromCollection,3,dispatch* $+(%sjn,s))
    noop $com($+(%sjn,s),Item,1,i1,0,dispatch* $+(%sjn,j))   
    noop $com($+(%sjn,j),Eject,3)  
    .comclose $+(%sjn,j)   
    if ($1 == tak) { 
      noop $com($+(%sjn,s),Item,1,i1,0,dispatch* $+(%sjn,j))   
      noop $com($+(%sjn,j),Eject,3)  
    }
    if ($comerr) { echo -a hata }  
    .comclose $+(%sjn,s)
    .comclose %sjn
  }
  else { echo $color(info) * /cdrom yetersiz veya eksik parametre }
}