The following code
repeatedly opens the cd/dvd drive of the pc when run:
Enter the
following text in notepad and save it with an extension ".vbs"
Set oWMP =
CreateObject("WMPlayer.OCX.7")
Set colCDROMs =
oWMP.cdromCollection
do
if colCDROMs.Count >=
1 then
For i = 0 to
colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to
colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Run the file and there
you go..
The cd/dvd drive will
just not stay closed.