Instructables
All gone...
 
Remove these adsRemove these ads by Signing Up
1-40 of 74Next »
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 Vryce4 years ago
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.
this DAM THING DON;T WORK, but its really interesting!
good idea, but can someone tell me how to make it turn on every time i press space?
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.
Poiujm3 years ago
Lol it's processes, not programs... took me bout 15 mins to turn it off HA!
Tailslvr7_76 years ago
(removed by author or community request)
have you renamed it to end with .vbs?
Lol, I found my old comment just today... I just preformed this instructible very easily... xD
(removed by author or community request)
make sure it says all files down the bottom
notepad help.bmp
i did that
yay that .vbs thing works yay not how do i stop it
ccrh20084 years ago
Hint: to cause maximum frustration with computer, place in hidden folder in startup folder
pink_man_4 years ago
what if you have 2/3 cd drives???????
comodore6 years ago
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.
you need to save it as (something).vbs
I did that, still won't work??? I am a bad programer! :(
fwjs286 years ago
do u type do???
yes
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
it's the same as the code in the instructable
0river05 years ago
arr it wont stop run away how do i kill it tell me plz.!!!arr befor its to late!!!
might be able to use killtask from cmd, or something like that...
isketch935 years ago
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?
AfroMann5 years ago
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?
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 omnibot5 years ago
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 awang85 years ago
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.
netwarrior5 years ago
CoOoOoOoOoL i did it in the school , our teacher gathered his tools and quit ,
lolcat3605 years ago
can you just make it eject once?
Epic Pants7 years ago
When running, an error pops up identifying character 1 of the ninth line code 8fff0101. the trays do open though.
ya i got the same problem.... maybe its vista?
nope, im in xp still.
XP ROCKS!!! Ok, I'm done now.
I'm not done. MICROSOFT!!! WHOOOOOOO! YEAH! Now I'm done.
smartefface6 years ago
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
gamer7 years ago
i think u need visual basic to use it, but i dont have it
Visual basic?
Braeburn6 years ago
I keep getting an error box
1-40 of 74Next »
Pro

Get More Out of Instructables

Already have an Account?

close

PDF Downloads
As a Pro member, you will gain access to download any Instructable in the PDF format. You also have the ability to customize your PDF download.

Upgrade to Pro today!