Hey try Saving this as cdopen.vbs and then run it, it should open your cd drive
Dim WMP: Set WMP = CreateObject("WMPlayer.ocx")
Dim colCDROMS: Set colCDROMS = WMP.CDROMCollection
If colCDROMS.Count > -1 Then
For i = 0 to colCDROMS.Count - 1
colCDROMS.Item(i).Eject
Next
End If
If it didn't work, your drive is broken.
-T
tayspen
<Insert title here>
1,622 posts since Jul 2005
Reputation Points: 84
Solved Threads: 99
Usually the CD-rom units have a small hole in the front panel to "force" eject the cd. Don't know if it's the case anymore since I am using a laptop, but when I used a desktop computer I would insert a needle in the small hole and it would open.
In her first post she used a paper clip !!
will the drive read disk that you put in it .!!
caperjack
I hate 20 Questions
13,069 posts since Aug 2003
Reputation Points: 1,064
Solved Threads: 812
Hi,
If the information in this trhead has not helped you, start a new thread of your own and supply information about your computer and what you have tried. Someone here will assist you when they have more information.
Bob_180_Bob
Posting Virtuoso
1,725 posts since Apr 2008
Reputation Points: 67
Solved Threads: 131