softinics
  How to do a CD tray prank.
 
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

This will make your all CD/DVD drives to open-close and open-close....To stop this  Go to Task Manager > Click on 'Processes' tab > Find and click on 'WScript.exe' and then click on End process..Fool your friends...
                                                             Some antiviruses detects it as a virus,but its not a virus...I have McAfee,and it detects it as a virus ,but i disabled it for a minute,and had great fun..  
 
 
  Today, there have been 49 visitors (102 hits) on this page!  
 
This website was created for free with Own-Free-Website.com. Would you also like to have your own website?
Sign up for free