Parece não haver nenhuma maneira de usar rundll ou um executável preexistente.
Se você tiver o host de script do Windows instalado, talvez o seguinte ajude (não testado, copiado de outro fórum)
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(0).Eject
Altere o (0) se você tiver mais de uma unidade.