[question] some eject cd app to work with multiple optical drives

Hi!

I know there's plenty of little apps that, when you double-click on their shortcuts, eject your cd drive. But is there an app that works with multiple optical drives? I have two optical drives (simple CD-ROM and CD-RW/DVD-RW drive), and I'd like to have an app that, when I double-click one shortcut, would eject my first optical drive, and when I double-click another shortcut, it would eject my DVD-RW. Is there such an app? :slant:

#239743

perhaps Yzdock with Andreas's recycle bin docklet or Avedesk with Andreas's recycle bin desklet would be what you're looking for. With those app, just drag and drop your optical drives into the recycle bin to eject them.

you can find those desklet or docklet at www.dockex.com

#239744

Yeah, I know about all that with AveDesk and docklets for different docks. But probably I've had to formulate my question more precisely: I need some app or script to have its shortcut in ObjectBar

#239748

Topic moved.

Here's something you might like - 2 vbs scripts which come with every crni's objectbar skin. Check them out. Read first line inside them carefully, it shows you how to modify them to eject desired drive.

Eject.zip

Attachment: Eject.zip

#239764

const Drive = "0" 'Edit this variable to change the corresponding drive

'Option Explicit

On Error Resume Next

Dim WshShell, chkOpen, RegEntry, RegCheck, ErrNum, wmp, cdroms

Set WshShell = WScript.CreateObject("WScript.Shell")

Set wmp = CreateObject("WMPlayer.OCX.7")

Set cdroms = wmp.cdromCollection

RegEntry = "HKCUSoftwareCDTray"

RegCheck = WSHShell.RegRead (RegEntry)

ErrNum = Err.Number

if ErrNum <> 0 then

WshShell.RegWrite "HKCUSoftwareCDTray", 0 ,"REG_DWORD"

WshShell.RegWrite "HKCUSoftwareCDTrayOpenClose", "1"

End If

chkOpen = WshShell.RegRead ("HKCUSoftwareCDTrayOpenClose")

If chkOpen = "1" Then

If cdroms.Count >= 1 then

cdroms.Item(Drive).Eject

End If

WshShell.RegWrite "HKCUSoftwareCDTrayOpenClose", "0"

Else

If cdroms.Count >= 1 then

cdroms.Item(Drive).Eject

WshShell.RegWrite "HKCUSoftwareCDTrayOpenClose", "1"

End If

WshShell.Run "Taskkill.exe /F /IM WScript.exe", 0, TRUE

Set WshShell = vbnull

Set wmp = vbnull

Set cdroms = vbnull

heres a script that will eject it just make 2 one for your dvd and one for the other must have taskkill.exe in your windows folder though. Dang Pe8er beat me to it ha ha ha go with his.

#239766

Thanx!

I'll try it, when I come back home from work...

#240045