Removed

Published

Introduction: Removed

All gone...

Share

    Recommendations

    • Oil Contest

      Oil Contest
    • Clocks Contest

      Clocks Contest
    • Stick It! Contest

      Stick It! Contest
    user

    We have a be nice policy.
    Please be positive and constructive.

    Tips

    Questions

    71 Comments

    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

    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.

    3 replies

    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.

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

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

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

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

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

    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.

    2 replies

    you need to save it as (something).vbs

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

    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