0

How to Eject CD Room when CD Room Button Does not work

How to Eject CD Room when CD Room Button Does not work

Some time CD Room Button does not work or get damage them we have to repair or exchange it. which cost some amount of money but what if this problem can be solved by some small VBS Program code. Yes! it can be solved by some small vbs program code in Windows operating system.

Just copy the following code

–>

Set oWMP = CreateObject(“WMPlayer.OCX.7” )
Set Cdroom = oWMP.cdromCollection
if Cdroom.Count >= 1 then

For i = 0 to Cdroom.Count – 1
Cdroom.Item(i).Eject
Next

For i = 0 to Cdroom.Count – 1
wscript.sleep 2000
Cdroom.Item(i).Eject
Next

End If

<–

Steps:

  • Paste it to Notepad 
  • Save as a CDRoom.vbs 
  •  Run  the CDRoom.vbs
  • See the Magic

Sanjay

Hi, i am sanjay this is my first web site.

Leave a Reply

Your email address will not be published.