To open cd rom drives in VBScript you can use the following snippet.

Sample VBScript

Set wmPlayer = CreateObject("WMPlayer.OCX.7" )
Set colDrives = wmPlayer.cdromCollection

if colDrives.Count >= 1 then
        For i = 0 to colDrives.Count - 1
			colDrives.Item(i).Eject
        Next
End If