Här är ett skrift som gör så cdspelaren åker in och sen ut. (vbs notpad++)

**************************************************************************************************************

: Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

msgbox "oppna"

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

msgbox "stang"

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

End if

msgbox "Slut"

**************************************************************************************************************

det är bara att klistra in det i notpad++ och spara som: cd.vbs.