Sunday, June 24, 2012

Ejecting CD-rom non stop

Introduction
Have you ever experience your cd-rom keep on ejecting non stop and you don't know what happen with your machines?

What you will do except than reboot your machines?. What are you waiting for?Start open your notepad and pastethe code on your machines and see it your self and prank your friend :). Remember to save the script with the .vbs. You can stop the script by stopping the wscript.exe process on the task manager.


Have fun with the code ^^.

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


Summary 
Stay tune with my next articles. Let us know what you though , learns and hope for next articles!. Connect with us on GOOGLE+ , TWITTER and FACEBOOK.
 

No comments:

Post a Comment