Click Here

Sunday, August 29, 2010

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