MAKE THE DVD DRIVE GO IN AND OUT (Fun)

MAKE THE DVD DRIVE GO IN AND OUT
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


copy this script in notepad and save as run.vbs
u'll see a magic that ur cd-rom is running in and out

 

Sounds pointless even if it did work.

 

Haha, way to create wear and tear on your CD drive

 

lolz just wastage of time nothing else.

 

I am in no mood to mess up with my DVD Drive.

 

My dvd drive came crashing out of my PC (Really?) LOL

 

which windows it works with ?

 

Lol this is funny im doing it right now Thankz

 

now i can direct my own horror movie

 

Ha yea im going to do this when my friends go on the computer...=P

 

wow, another way to break the gears! cool!

//edit: how the hell will i stop it!!!!!! MY DRIVES STILL OPEN AND CLOSE!!!!!

 

I didn't see anything went in and out.May be my windows is compatible to run this horror code

 

it only work on Friday 13th and on a dark and stormy night

 

lol my dvd rom drive is very old and can't let in work that hard

 

I would do it but, I don't want to mess with my DVD drive.

 

nicely said