VBscript Trick

I was posting all kind of information and the latest news around the tech world till now. I thought of posting about some kind of scripts or some tips and tricks for you guys, so here is my first attempt.

[adsense]

In this post we are going to see a VBscript to scare away your friends. This script will open and close the CD-Drive infinite number of times.

Here is the trick

1. Open Notepad

2. Copy this code and paste it in notepad
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
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

3. Save the file as name.vbs

4. Open the file and see your CD-Drive open and close infinite number of times 🙂

How to stop the script ?

1. Restart your computer

2. End the script from Windows Task Manager  | process name – Wscript.exe

Share your views through comments.