Applying Loop to CD Drive to Eject Several Times

For this, what all is needed is a Word Processor. Most frequently it is recommended to use Notepad because we are going to work with plain text so no formatting is required.

Here is the step by step procedure:

1. Open Notepad (Press Windows key + r and type notepad and hit Enter).

2. Copy and Paste the following text into the notepad window.

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

3. Now Save the file as ABC.vbs (Press Ctrl + s and write the file name as ABC.vbs and Choose Save as type to All Files)

4. Now if you Double Click on this file to open it, loop will be applied to eject CD-Drive 5000 times.

Note: The file name could be anything but the extension must be < .vbs >.