How to make CD or DVD drives eject continuously | Do a Prank using Notepad

This trick will continuously eject all your connected Optical drives i.e. it will open all the CD/DVD drives of the computer and then, if they are closed, it will open them again. You can use this to open CD drives, if you are not able open them normally. You can also use this trick to do a Prank on your Friends, if they don't know about this trick, this will annoy anyone. You can call it a Harmless Virus , which will not do any harm to computer, only for Fun ☺☺☺. For doing this we have to create a VBS program or file, using a Text editor like Notepad in Windows.

Create a File to eject CD/DVD drives continuously

Follow the below steps:-

 1  Open Notepad   (click on 'Start' and search for 'Notepad' and open it or Press 'Windows Key + R' and type 'notepad' into the Run field, and click 'OK' or press 'Enter' to open the Notepad.)

 2  After opening Notepad, Copy and Paste one of the code from below given codes in it :

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
End If
wscript.sleep 1000
loop

or

do
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next 'null
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
loop

or

do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 5
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
End If
wscript.sleep 1000
loop

or

do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 5
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next 'cdrom

For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next 'cdrom

set owmp = nothing
set colCDROMs = nothing
loop

or

 To show a Message when the .vbs file is opened, then use the below code- 

MsgBox("Hey Dude!!! Have a Good Day :-) :-D :-D")
do
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
End If
wscript.sleep 1000
loop

➛ Replace the texts denoted in red in the above code with the text you want. The texts denoted in red is the Message, which will appear when you run the .vbs file.

or

 To show the Message everytime the CD/DVD drives gets ejected, then use the below code. This one is funny ☺☺ 

do
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
End If
wscript.sleep 1000
MsgBox("Hey ! Your CD/DVD Drive is Ejected !! Please close it :-)")
loop

or

do
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next ' cdrom
End If

Set oWMP = Nothing
Set colCDROMs = Nothing
MsgBox("Hey ! Your CD/DVD Drive is Ejected !! Please close it :-)")
loop

➛ Replace the texts denoted in red in the above codes with the texts or message you want to display in the Message Box.

or

MsgBox("Hey Dude!!! Have a Good Day :-) :-D :-D")
do
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
For abe = 0 to colCDROMs.Count - 1
colCDROMs.Item(abe).Eject
Next
End If
wscript.sleep 1000
MsgBox("Hey ! Your CD/DVD Drive is Ejected !! Please close it :-)")
loop

 3  Now click on 'File', then click on 'Save' (If it is already a saved file then click on 'Save As'), and save the file as 'Eject.vbs' or any other name you want with ".vbs" extension.

 4  Now, when you run or open the .vbs file that you have created, all the CD/DVD drives will start ejecting, and if closed, they will eject again. This will go on, until we stop the eject script, read below to know, how to stop the eject .vbs script.

 Stop the eject .vbs script :-- 

➤ Open Task Manager in your computer (you can use shortcut "Ctrl + Shift + Esc" on your Keyboard to open Windows Task Manager). click on 'Processes', Now scroll and locate "wscript.exe" and select it, and click on "End Process".

➦ You can change the icon of .vbs file to Prank your friends, read ➝ Here to know how to change the .vbs file icon to do a Prank.