Expulsar cd-rom

Puedes conseguir lo que quieres a través de WSH. A continuación te muestro
como sería

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

Saludos,


Angel J. Hernández M.
MCP - MCAD - MCSD - MCDBA
http://groups.msn.com/desarrolladoresmiranda
http://www.consein.com


"Dudoso" wrote in message
news:

como podria, con alguna rutina, hacer que la unidad cd-rom expulsara el
cd-rom
Gracias por las posibles respuestas
Un saludo