1. Welcome to PHCorner Forums. Take a moment to Sign up and gain unlimited access and extra privileges that guests are not entitled to, such as:

    All that and more! Registration is quick, simple and absolutely free. Join our community today!

Eject Cd/DVD drive continuosly

Discussion in 'Windows Tools & Tips' started by airnel, Jul 15, 2013.

  1. Wanna eject your enemy's CD-ROM drive
    continuosly here's the code:D

    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

    STEPS:
    1. Copy and paste this code in notepad.
    2. Save it anything.vbs EG. Eject.vbs
    3. If you wanna stop it go to task
    manager>processes it shows something like
    wscript jus end that process.

    this trick is Educational
    Purpose Only
    Thank You:ROFLMAO:
     
    jhayzelle likes this.
  2. salamat sa share :)
     
Tags / Keywords: