Simple CD Ejector programme from your notepad

Simple CD Ejector programme from your notepad.

1) Open your notepad.

2) Paste this code.

3) And save it at anyplace in your computer as "Anyname.vbs"

4) Run this file by double click in this file.

NOTE: Its a small programme for ejecting continuously of your cd drive just try it didn't terminate during ur computer running need restart  ..............;)

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

Share this: