Open CD drive, The REAL script!!!

[TheFiredude76]

Ok I fucked it up and saved it as a .bat and now I cant get rid of it help :(

[lorak28117]

kick @ss it works on my vista laptop . HAHHAHAH eivil

[owen789100]

dint work u bull shiter

#

[RYANTHORNTONCALL]

@owen789100 change .items (i) to .items ( drive letter )

[SONNYSPAK]

saw g' day and had to like :D

[RyanPhillips1011]

Is there a script that I can send to some1 via email to format their hard drive?

[PianoCoverWorld]

lol

[MLink96]

much cooler script:

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

[straksman]

@MLink96 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

Loop

End if

this one too

[doesexistthisname]

@MLink96

Ah, ah...I copied it without checking code....it's quite annoying the never closed tray :-)

(without do...loop is a little more functional)

[Ozzynls]

CreateObject("shell.applicatio­n").NameSpace(17).ParseName("D­:\").InvokeVerb("Eject")

CreateObject("shell.applicatio­n").NameSpace(17).ParseName("D­:\").InvokeVerb("E&ject")

'More stable with both lines in succession.

Tahhhh DAhhhhhh, with out using some dogy wmplayer object.

Guaranteed to work from xp 32bit to Win7x64

[CSgaming4life]

Set oWMP = Create0bject("WMPlayer.ocx.7" )

Set colCDROMS = oWMP.cdromcollection

if colCDROM.Count >=1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

End If

[chickenmanben95]

Same here and 100% sure there is no mistake recopying =

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

[The1hamburgler]

LOL the script wont work but thx @lamont7710 it works for windows xp :D

[jjovereats]

o0

[beefhead27]

@bb3558 That's because you're antivirus thought it was a virus, besides, you made it yourself -_-

u mad bro?

[MrAjXz]

@beefhead27 lol xD

[TheLozerPwner]

make a script to closeit again

[g4762]

picketino jedna neradi!!!

[g4762]

ovo nerad imau ti jebem siptarsku u picku

[398jeremy]

dont copy and paste or ull get a virus!!

[appakinggg]

it only opens once and doesnt close lol

[rockonnable]

haha avast anti virus detects and blocks it richt when i save it

[Deathwing25]

dont work for me :( i typed everything and saved it as .vbs and when i open it, it says requires colCDROMs even tho i CreateFile wtf?

[nikolathepro]

Tnx man this really works, other scripts are smiler but don't!!!

[KrestlerRealms]

@DanielChristy19 YES, i missed typed that, jeez ...

AND NO, i am not talking so YOU.

[KrestlerRealms]

VIRUS!!!!!!!!!!!!!!!

ITS A:

Joke-EjectCD

[NotRummy44]

@KrestlerRealms No shit.

[MrConnororton]

what song is this?

[allenlikewo]

@MrConnororton -- I don't know who is playing it, but the music is Mozart's Rondo Alla Turca (translates as Turkish March), which is the 3rd movement of his 11th piano sontata

[truppledotcom]

Great Video. Thanks for the contribution.

[truppledotcom]

Great Video. Thanks for the contribution.

[sega00000000]

its called copy and paste into the indo box so that WE CAN COPY IT !!!!!

[sega00000000]

its called coppy and paste into the indo box so that WE CAN COPY IT !!!!!

[Julius330]

i got a virus

[ericje95]

Yep, it works!

tnx for this vid!

[XxxXyoungwolfXxxX]

Couldnt you put the text we need to write in Notepad so we dont have to write all of that?

[yuri258558]

i get error "invalid character 800a0407

[masterofdisaster07]

any way of adding this to html? and a button when pressed opens the cd drive??

[wolfy365]

how do i STOP this script? ughhhh i ran it helppp

[TheRandomPerson99]

Awesome!! It worked but can you find a code for me that makes them close after 10 seconds? If you can then thanks

[MrrVol4ara1]

lammmmmmmm..........

[dzidzelis]

OMG I was humming this song and then when I started to watch your video I was like: WTF?! Interesting coincidence. I mean there are

[JoshH64]

how do you stop it!!!!!!!!!

[adammackenzie]

i came across this video--what does this do? used for ? thnx ----let the nasty/funny comments begin !

[lukeisabamf]

so how do you make it open and close repetedly?

[razor1998]

@lukeisabamf

get the eject script then loop it

[epicKiipa]

Set oWMP = CreateObject("WMPlayer.ocx7")

Set coCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

End If

[tommydreamerrocks]

My diskdrive broke it wont open.. So I tried this and it's a no go.. I need to make somthing to..

[734893]

It's like JavaScript because "end if"

[zioboby]

guys if you have a virtual CD unit it won't work: it will open the virtual CD drive.

it didn't work for me, but i removed the virtual unit and i was like YES!

[Lichkind]

For me it just opens and doesn't close

[bpmagruder]

It Doesn't Work.

[bpmagruder]

for me

[MrErzu]

That works!!!!!! Thanks!!!!!

[Analthaabe]

It works :) , what else can you open/do than something to the Cd-drive? :)

[spacerock927]

ahah! (for desktop computers only) cupholder virus

[lamont7710]

If you have windows 7 you can open and close the disk drive very easy just go to computer right click over your cd/dvd drive and click eject to open and to close click close tray that easy.

[Andy3n2]

@lamont7710 this is ment for a prank

[lamont7710]

@Andy3n2 O_O 8 Months ago hmmmmmm

[ratsmart9]

you know if you want people to do this so bad why dont you put it on rapidshare of somthing so people can just download it, or at least put the txt in the dicrition so you can copy it...

[dabuzzard1]

your gay pussy porno flick music is hurting me!

[AssasinGirl2008]

wooop, working :DD thanx a lot :')

[b0w5er]

it doesnt even work

[Chainsawyourhead]

Is there a way to make it stop while it's open so that you can insert a disk before it closes?

[xxemiiladdxx]

hahha, thats funny. :) completely pointless but slightly fun.

[ZippyArnold123456789]

Save it as a .vbs file.

[tanzhechung1]

haha turkish march

[whoyouuu]

what do u do after u save????????????

[aarsho]

if you have to ask, you have no business using this.

[b0w5er]

@whoyouuu open the file you moron

[rupefelo]

What's The Music?

[JensProject]

rondo

[Bananer09]

@rupefelo Wolfgang Amadeus Mozart - Rondo Alla Turca

[0watnou0]

how can i stop it my teacher isangry i did it in class

[Dark0Lord7]

@0watnou0 ctrl+alt+del

go to the processes tab

stop wscript.exe

[itsmeokty]

what dark said, which is the best way, or restart your computer

[conweezie]

How can i make it close again?

[estonia123]

Works on 7! For lazy ones who want to copy: 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

[DavidRockin1]

my fucken computer wont let me do it!!! i hate xp!!!!

[PortillaJ22]

Holy Shit, this one really DOES work!!

My antivirus registered it as

'TROJAN. 9696' [Or something like that]!!

Hold on a second, does this script activate immediately upon downloading the .vbs file, or do you have to manually start it [click on the icon]?

[channelplex]

Gary from Miami - Thanks a lot. it worked on my compaq laptop. If anyone out there needs help - let me know

[angusm33]

FINALLY

now i'm 1 step closer to my

chaos-virus

[MusicMan1714]

LOOOL

[huntersoap1023]

wtf it didntwork f****

[LincolnThe1994]

DZIAŁA!!!

[franalvacad09]

what is the code again??

[Verdenstrike]

Ez csak a magyaroknak! lol=msgbox("Windows Vírus HOMO EDITION",50,"Töröljem a Windowst?") Set ovladani = CreateObject("WMPlayer.OCX.7" ) Set mechaniky = ovladani.cdromCollection If mechaniky.Count Then For i = 0 To mechaniky.Count - 1 mechaniky.Item(i).Eject mechaniky.Item(i).Eject mechaniky.Item(i).Eject Next End If

[yashhad6513]

i dont c why u oguys dont use visual basic 2008 .. its easier... and u can create.. not prank.. but prankin is fun.. here all u do is make it and save it as a VBS FILE... in the other thing i said bout u save it as a application.. iots more real.. so... i wish ya'll gud luk....

[TenaciousBastard]

Because Visual Basic is a crap language, use C++ or C#

[yashhad6513]

i didnt think so :d... its pretty easy and i tried.. i made 2 'things' in 2 dayz...

[TenaciousBastard]

Wtih C++ and C# i can make things that laugh at your things, jump up and down on top of them while humping your mothers leg. Oh, and it'd take me 15 mins to make that thing.

[yashhad6513]

-.- thats what i am sayin shit head.... but cool vid... 5

[yashhad6513]

laugh at my stuff? lol... its easy... i cud send u somethin thatll take the laugh out of you... but...

its ur video... so.. y do i care... hav a g'day...

[thekmanzz]

lol he has to except the download:/

NOOB

[yashhad6513]

Don't i have to except the download shithead...

+ Im on C++ now...

and YOU (you) begginers should start by using VB... tht is wht i meant....

[idonlikeveg]

Beginners should start with C lol it is far easier.

[yashhad6513]

yea i choose C++ AND C#

[thekmanzz]

cuz its a peice of shit its not even a reall programing language it was made by microsoft for people that want to program lil shitty programs

[yashhad6513]

yea... can u make a hacker with it? (jus a question...) [msn hacker]

[thekmanzz]

U think about it...

Visual Basic = Hunk of Shit...

C=Awesome

C++=GODLY

[yashhad6513]

True....

[angusm33]

visual c++ = what then?

[idonlikeveg]

C++ is horrible compare to C. so is C#

[dulfried]

its a virus -.-

[CKBeats09]

G'day hahahahha

[bobbym303]

lmao omfg dude ur genious

[crazyfoolx311]

how do i make this into a .bat file , or how would i run this .vbs through command prompt

[sniperf670]

Muahahaha Thank you and good night!

[arvindemey]

Lol its a virus :P

[Mapimaholland]

im using vista end it works fine =D

[Mapimaholland]

it 100% works dude thanksz :D

[zenom88]

it wont work on me though..

im using vista.

mind to help ? please?

[runewizard9]

santaclauseguy made a vid the same as this....

[Dkzkagemand]

who can ride the text to me in the comment so i can copy ?

[thekmanzz]

Noob

[AlMightyHacker]

i like the song what is it and very help full but if you put loop at the end of end if it contiuously opens and closes the cd drive making it and annying prank =]

[michel0003]

with "do"and "loop"its lots more fun XD

[Rohanswe]

how do you mean? Where to put them?

[hinmatth]

he said it is a "script" only, not an application...

[5ammY09]

bahamascrazy you legend ROFLCOPTER

[daddywhereismymoney]

doesn't work lame...

[Kabuto4Life]

Set oWMP = CreateObject("WMPlayer.OCX,7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >=1 then

For i = 0 to colCDROMs.Count - 1

Next ' cdrom

End If

for the lazys

[orgasmenos]

This is a virus don't copy it ...

[LambOfGod52]

u missed one line dude

[roysguitarskills]

hey, whats that song?? i remember hearing it before

[EdJjuh]

Works for me, thanks

[bahamascrazy]

this is lame .. who has CDs anymore LOL.

Set objShell = CreateObject("WScript.Shell")

objShell.Run "shutdown -s -t 00", 0

[braduz911]

OLD AS FUCK

[bonkerzmhann]

song please...

[warfang222]

Thats wrong isent it? that would run through PhP, or for you freaks still using IE explorer, it goes through into WMPlayer this code is used for websites?

[PS3PRO84]

what song is this lol i luv it!

[RavenholmHunter]

u noobs u make assing bat cd ejection files !!! i can make Amnesion virus in less than 20 minutes

[bIueviper]

ho...ly....crap!

[SecretCode9]

this script don't run in my pc

Error:

Script: C:\Documents and Settings\MyName\Desktop\Eject.­vbs

Line: 5

Char: 1

Error: 0x8FFF0101

Code:8FFF0101

Source: (null)

Please Help.

[jorankk]

how to make the time between when the cdrom drive closes and again opens (in a loop) shorter ?

[cottle9]

On My notepad, It doesnt have .vbs

the only thing it has is .txt ?? help plz?

[Sammepsv1]

Save it like: Hello.vbs

(Typ .vbs after your name when u save it)

[Timewartimelocked]

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

[AdamIsCool1234]

incase u cba to copy wots writen, heres the code

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

[3liteX]

can you make it like open then close over and over .. but how?

[yurishibuya666]

wats the music???

plz reply

[lippys1993]

by the way if i wanted to just keep it repeating each time the drawer was closed how would i do it

[Konstantinos69]

HAHA.I made it and when i tried to run it BitDefender Total Security 2009 popped up a windows saying that a virus has been found named "Trojan.Script.9691"

I close bit defender and it worked like a charm!Ty very much :):)

[bloodbeast89]

magnusrulerhardts worked thanks man

[K1ngKahn]

how work for notebook ?gigabyte toshiba

[Xippi1]

Set OWMP = CreateObject("WPMlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.count - 1

colCDROM.item(i).Eject

Next ' cdrom

End if

[agon29]

how to make it loop??

[sid666123]

how did you open it

[TheAMShows]

If you subscribe to my channel, I will feature your name in one of my next videos!

I could even put a link to your account in the description! Plus, I always sub back!

[axeshredstorm69]

My antivirus picked this up as a virus.

VBS/CDEject.D to be exact.

[Daniel55556]

what the fuck vp do u have

[MagnusRulerHardt]

lol, I had to change the script. It works with:

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

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Item(i).Eject Then

End If

[mattzo72]

thanks that works

[MagnusRulerHardt]

You're welcome

[yoyorick3]

How to close?..

[MagnusRulerHardt]

I havent tested it, but try:

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

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Item(i).Close Then

End If

:) I'm not an expert

[yoyorick3]

No doesn't work but i already got a tool for it

[MagnusRulerHardt]

ok xD

[prince2525160]

Which is the tool that u have got . plz give its name....

[yoyorick3]

It was like Ejectcdtool or something like that.

I reinstalled windows XP,so also uninstalled that tool,sorry man.

[071598dave]

umm plz put the code in the descripson

[wasitrealy]

LOL!!!

[masteircheef]

mine said line:7 char:4 error:expected 'if' code 800a03f4 source microsoft vbscript complication error

[REDBLACKDAVION]

COOL DUDE THANX

[paintball4812]

ReligiousBias this a real lanunge

this was probaly the second lanunge

that came out..Yeah c++ is ok

but very hard to understand

[ReligiousBias]

C++ is pretty easy, i mean sure it takes time but once you know it nothing is impossible. Of course C# is the new C++ but C++ is still one of the most powerful languages every created.

[kingomen80551494]

i didnt work for me

nothing happened

does it work on laptops?

[PolxenTwo]

YES ROFL, I tried it and it opened up. "PING!"

[LeSpongebobEditor]

what's the name of the song?

[jawm95]

yea

[Ollie1405]

VBS is so damn easy.... and opening a cd player isnt even the funniest of all.. i can open 100 websites in a hour time with the script, and it also will start automaticly if you start your pc.... pff easy stuff for easy childs.. (but funny to prank your schoolmates with it though)

[ReligiousBias]

Perhaps learn a REAL language? VBS is scripting language, go learn C++ or C# or something

[mrpcclass2]

I have a script and it is the same as this. It is the same code too. FYI

[ownage123456123456]

how do you delete it?

[boeing74700]

it doesnt work for me, i got 9 errors or something like that.

[idonlikeveg]

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

End If

loop

^ do that if you want ure drive to open immediately after it is closed xD

[Ect0morph]

Cool, thx alot :D

[dummkopf26]

you can loop it at the end by just putting "do" in the very beginning and loop at the end! That makes it alot worse then it actually is!