Removed

All gone...

Comments

[theprogrammer]

if you just want it to open once type this

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

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If


bye bye

[Temo Vryce]

Nice Ible.

For those that are interested. You can save the .vbs file to a USB Key, run it from the key and then remove the key from the computer. The drive will continue to open on it's own until you kill the wscript task.

[jamesbond207]

this DAM THING DON;T WORK, but its really interesting!

[Poiujm]

good idea, but can someone tell me how to make it turn on every time i press space?

[Tailslvr7_7]

Good idea... And maybe you could attach it to an autorun script so all you need to do is insert the key, wait a few seconds, and then take it out.

[Poiujm]

Lol it's processes, not programs... took me bout 15 mins to turn it off HA!

[Tailslvr7_7]

(removed by author or community request)

[QwertyuioLP]

have you renamed it to end with .vbs?

[Tailslvr7_7]

Lol, I found my old comment just today... I just preformed this instructible very easily... xD

[matstermind]

(removed by author or community request)

[QwertyuioLP]

make sure it says all files down the bottom

[matstermind]

i did that

[0river0]

yay that .vbs thing works yay not how do i stop it

[ccrh2008]

Hint: to cause maximum frustration with computer, place in hidden folder in startup folder

[pink_man_]

what if you have 2/3 cd drives???????

[comodore]

it looks very interesting, but it doesn't work. WHY? I do everything the Instructable says but it just won't work. i copy the text and paste it on the text document, save it in my documents and named cdrom.vbs and it still won't work.

[matstermind]

you need to save it as (something).vbs

[comodore]

I did that, still won't work??? I am a bad programer! :(

[fwjs28]

do u type do???

[matstermind]

yes

[strangelord0]

Perhaps you should change it to this, so you don't have a delay:

do

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

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

loop

Look out your finger may be bashed of xD

[matstermind]

it's the same as the code in the instructable

[0river0]

arr it wont stop run away how do i kill it tell me plz.!!!arr befor its to late!!!

[techwiz24]

might be able to use killtask from cmd, or something like that...

[isketch93]

Is it possible to modify this code so that it will just make the CD drive open and close like crazy until you terminate wscript process?

[AfroMann]

I tried it out and a screen popped up saying that windows can't open the file because it doesn't know what created it, why does it do this?

[omnibot]

Most likely you don't have visual basic installed, it could also be that your windows is not set to open this filetype as a visual basic program. I don't recommend you get VB since it spawns viruses.

[awang8]

Visual Basic does not spawn viruses. Visual Basic is a great program and everyone who is interested in this sort of stuff should use it. And no, I'm not a VB advertiser!

[omnibot]

You're right, VB does not "spawn viruses". I find though that it does allow for the easy creation of very destructive programs with far to many possibilitys. The close integration between VB, Outlook and Windows explorer is a safety-issue of such proportions that I do not allow them on any of my computers and do not install them on my friends computers. The result is that although VB-programming is a closed book to me I have not suffered any virus-attacks since the 90's.

[netwarrior]

CoOoOoOoOoL i did it in the school , our teacher gathered his tools and quit ,

[lolcat360]

can you just make it eject once?

[Epic Pants]

When running, an error pops up identifying character 1 of the ninth line code 8fff0101. the trays do open though.

[Bl4cK_kNiF3]

ya i got the same problem.... maybe its vista?

[Epic Pants]

nope, im in xp still.

[extremegtafan]

XP ROCKS!!! Ok, I'm done now.

[extremegtafan]

I'm not done. MICROSOFT!!! WHOOOOOOO! YEAH! Now I'm done.

[smartefface]

well nice job meeze
people getting different errors ok i think u dont mind if i help a bit

the error is (so far i think by reading comments) u use loop on drives if anyone have virtual drives or somthing like that it will print error

try that one
do
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject
loop

maybe u like that code

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
do
colCDROMs.Item(0).Eject
loop

[gamer]

i think u need visual basic to use it, but i dont have it

[HardCoreHacker]

Visual basic?

[DavidRobertson]

no you dont because the visual basik runtime enviroment is built in to windows