This will make your Cd Rom Open Close Automaticly TRY IT!

_____________________________________________________________________


Step 1: Open Notepad

Step 2: Copy and Paste the following into Notepad:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

Step 3: Save it As: Computer.vbs

Step 4: Open it and Watch what happens!

The only way to stop it is CTRL>ALT>DELETE

If the one on the top dosen't work copy and paste this:

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 100
loop

Save it as: CdRom9.vbs





__________________________________________________________________
if Any Query Contact Me :-
                   Email Id:-   vishalmistri93@gmail.com
__________________________________________________________________
                                     Thank You..!
__________________________________________________________________