Looking for VBS script that will eject a CD drive

[warp]

Does anyone know a vbs script, or a program that will let me eject a specific CD drive? Ive found one that will eject all the drives, but not one that will eject a specific one.

 

[tx]

Re: cd eject script

Put this script in a blank text file and change extension to .vbs:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject

Put the number of drive that you want to eject
(0 for D:\, 1 for E:\ and so on...) in colCDROMs.Item(n).Eject.

 

[binu G]

cd eject script

it havent worked
what is wrong
i copied the same in the notepad
and changed the to 2 since my drive is F
but got a error.

line 3
char 1
error invalid procedure call or argument
code 800A0005

binu g

 

[tx]

Re: cd eject script

Probably you need a newer version of Windows Media Player.
I have Windows Media Player 9 version with Windows Xp Sp2 and it works good.

 

[binu G]

cd eject script

ok
is there any way i can work it out in win2003
or any modified script can work?

binu g

 

[tx]

Re: cd eject script

You should install windows media player, or try to find wmp.ocx
in your windows system directory and re-register it
with this command: "regsvr32 wmp.ocx"
It should work...

 

[binu G]

cd eject script

still i got the same error,
i re-register the wmp.ocx.
it got successfully registered.


regards
binu g

 

[tx]

Re: cd eject script

Try re-register also wmp.dll
with "regsvr32 wmp.dll"
what version do you have of this file? Mine is 9.0.0.3250

Install the last version of windows script for windows 2003 here is the link
https://www.microsoft.com/downloads...82-e3f5-4289-a5e3-6cbb818623aa&displaylang=en

I have also found this script, but it doesn't work in my system :

Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives
If d.DriveType = CDROM Then
Eject d.DriveLetter & ":\"
End If
Next

Sub Eject(CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject("Shell.Application")_
.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")
End Sub

 

[kasimgurel]

cd eject script

i had it but it just ejects E: cd rom

 

[tx]

Re: cd eject script

I made this little app, I hope that you find it useful. You need visual basic 6 runtime to run it, there is also the source code.

Regards