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