Instructables
loading
loading
All gone...
 
Remove these adsRemove these ads by Signing Up
1-40 of 65Next »
DragonH25 days ago

Hi,

it says all gone...

what was the script tho?

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 Vryce5 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.
Poiujm4 years ago
Lol it's processes, not programs... took me bout 15 mins to turn it off HA!
ccrh20085 years ago
Hint: to cause maximum frustration with computer, place in hidden folder in startup folder
pink_man_5 years ago
what if you have 2/3 cd drives???????
comodore7 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! :(
fwjs287 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
0river06 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...
isketch936 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?
AfroMann6 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 omnibot6 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 awang86 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.
netwarrior6 years ago
CoOoOoOoOoL i did it in the school , our teacher gathered his tools and quit ,
lolcat3606 years ago
can you just make it eject once?
Epic Pants8 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.
smartefface7 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
gamer8 years ago
i think u need visual basic to use it, but i dont have it
Visual basic?
Braeburn7 years ago
I keep getting an error box
coolz7 years ago
for some reason, The file automatically disappears when I save the file BEFORE i rename it to .vbs
coolz7 years ago
I tried it it doesnt work
coolz coolz7 years ago
oh wait it does
5h4rp137 years ago
it says that it won't run because it contains a 'loop without a do'. Thoughts?
it works awesome. its hilarious. but could you explain how it works?
mdog2287 years ago
let me pose a warnig, this is a very awesome hack and i luv it but if you have mcAfee then writing this hack will be unbearable so yeh but if you don't then hey... DO IT!
1-40 of 65Next »