Yes.
These two .vbs files will open the trays on D: and E: drives.
Copy the lines below into Notepad, not including the ---- parts.
Save as ejectD.vbs
-----------below this line----------------
Set objShell = CreateObject("Shell.Application")
Set MyComp=objShell.NameSpace(17)
Set CD=MyComp.ParseName("D:\")
Set Context=CD.Verbs
CD.InvokeVerb "E&ject"
-----------above this line----------------
Copy the lines below into Notepad, not including the ---- parts.
Save as ejectE.vbs
-----------below this line----------------
Set objShell = CreateObject("Shell.Application")
Set MyComp=objShell.NameSpace(17)
Set CD=MyComp.ParseName("E:\")
Set Context=CD.Verbs
CD.InvokeVerb "E&ject"
-----------above this line----------------
There is one difference in the two, ("D:\") and ("E:\") are the drive
letters. These can be changed to any CD or DVD drive letter.
You can move the .vbs files where ever you want.
You can also create shortcuts to both .vbs files.
--
Hope this helps. Let us know.
Wes
MS-MVP Windows Shell/User
In