its actually: do Set oWMP = CreateObject("WMPlayer.OCX.7") Set CDROMs = oWMP.cdromCollection if CDROMs.Count>=1 then For i=0 to CDROMs.Count-1 CDROMs.item(i).Eject CDROMs.item(i).Eject Next 'cdrom End if loop
you let people know how to make a virus..... dont u have better things to do... use ur talents for good man. find something that HELPS people out. not something that they could send or do to someone else's comp to damage it
did you copy everything from do to loop. And did you save it as prank.vbs Are you using XP, those are the only problems I can think of because it works for me and all my friends too.
whats it do when you open it?
XloungeXgamerX 6 months ago
This has been flagged as spam show
gamemaster1494 9 months ago
does not work
KnucklesARouge 10 months ago
wwe LOL
AP9805 11 months ago
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set CDROMs = oWMP.cdromCollection
if CDROMs.Count>=1 then
For i=0 to CDROMs.Count-1
CDROMs.item(i).Eject
CDROMs.item(i).Eject
Next 'cdrom
End if
McKoxi 1 year ago
Sweet. Works on Dell B110 w/ Windows 7 but not on the Dell 2400 w/ Windows 7. I think it's the older ReWritable drive that's ingoring it.
411NewYork 1 year ago
i dOnt think its goona work,
how many times i checked for the code,
i can't do it..
it doesnt work...
is't compatible for all kind,brand and Os of computer?
mArk01281 1 year ago
you let people know how to make a virus..... dont u have better things to do... use ur talents for good man. find something that HELPS people out. not something that they could send or do to someone else's comp to damage it
scotteq1427 1 year ago
where can I find and get that desk top picture, I love it. can anyone help
butterflyz1213 1 year ago
lmao metalmulishaking56 you pranked yourself
JcMoist 2 years ago
The cd rom is open but i have this error
Script: C:\Documents and Settings\"name of comp"\desktop\hi.vbs
Line: 8
Char: 1
Error: 0x8fff0101
Code: 8FFF0101
Source: (null)
can you help me fix this?
krt1ca 2 years ago 6
@krt1ca same mesage :(
miodragtv 1 year ago
@krt1ca me too.. did you find out how to fix it yet?
TheBlakeWilliamson 1 year ago
@TheBlakeWilliamson
nop...but i remember i had some php script:
$mp = new COM("WMPlayer.OCX");
$mp->cdromcollection->item(0)->eject();
(dont forget php tags)
krt1ca 1 year ago
@krt1ca i found a way to do it.. you just copy and paste the "colCDROMs.Item(i).Eject" a insane amount of times.. haha
TheBlakeWilliamson 1 year ago
hey great vid,but i keep gettin an error message can u help.thanx
mrsoundtech15 2 years ago
its funny xD
MrGangsta79 2 years ago
osh301. wanna help me out maybe? i copied and saved it as a .vbs
It opens the cd drive but then it throws an error.
Script: C:\Documents and Settings\"name of comp"\desktop\hi.vbs
Line: 8
Char: 1
Error: 0x8fff0101
Code: 8FFF0101
Source: (null)
any ideas?
mgbadboyz 2 years ago
you know where it starts with Set... before it like type in do
do
set... and at the end
end if
loop
doneyf4 2 years ago
can u give me the script for one that opens and closes repeatedly by itself? know how to? appreciated :)
necroon370 3 years ago
hey... i did this on windows vista, it worked but you didn't say how to get the cd rom to stay closed... how do i?
metalmulishaking56 3 years ago
you have to use the task manager and find the process and end it..or an easier way is to just restart your computer
osh301 3 years ago
what is the process called in task manager?
1847nick 1 year ago
great!my friend get scared.he believe in ghost and supernatural things.idiot......:-P
buritoman45 3 years ago
This has been flagged as spam show
how to stop it?
900707015067 3 years ago
I get a script error something in line 8, I copied and pasted the above script any suggestions?
ajsdarts 3 years ago
did you copy everything from do to loop. And did you save it as prank.vbs Are you using XP, those are the only problems I can think of because it works for me and all my friends too.
osh301 3 years ago
i get the same
sinnerzinho 3 years ago
Save it as fake.vbs but look where is says
Incoding, change ANSI to Unicode.
rudyou8121961 3 years ago
cool, love the music
dddpppa12 3 years ago
sweet video
eggtor090 3 years ago 3
copy and paste the whole thing, if it does not work send me a message and I will help you
osh301 3 years ago
This has been flagged as spam show
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
osh301 3 years ago