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
RT @CodeSnippetsNET: How to open cd rom drives in #VBScript http://t.co/KjHsKkWgee #vb #code #programming #code