Optical Drive Door Virus

Open the notepad type the following coding:

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

Set oCD = oWMP.cdromCollection.getByDriveSpecifier("J:") ' or whatever

If vbOK = MsgBox ("Eject?", vbOKCancel) Then

oCD.Eject

If vbOK = MsgBox ("Close?", vbOKCancel) Then

oCD.Eject

End if

End if

And save it in to filename.vbs