- Open Notepad
- Copy and paste the following code in notepad-:
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
Save it as Cd.vbs
Now open the file and see the magic.The file will continuously force your CD or DVD rom to pop out And if you have more than 1 cd drive it will pop out all of then ...... To stop it :-
Just goto > task manager>processess>locate "wscript" >right click >end process
No comments:
Post a Comment