Ohi!
Here is "A Virus That Will Open And Close Ur CD-Rom"
##################
##################
TO DO :
1) Copy the below code/script into notepad.
2) Save it as cdswapper.vbs (or any other name you want)
3) This is done by enclosing to "All Files" (For those who don't know)
4) Double click the file you created.
5) BINGO!!! Sit and watch your CD-Rom swapping and playing.
Remember :
1) The Extensions (.vbs) is the main criterion for the script/virus to work.
Note :
Now, If you want to disable this :
1) Go to "Task Manager"
2) Move to "Process" TAB
3) Find the process named "wscript.exe"
4) Right click on the file and End this process.
Have fun! =)
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