A ALL CD-tray opener !!!!! and CD-RW and DVD-RW :)

				
'**************************************
' Name: AALL CD-tray opener !!!!! and CD-RW and DVD-RW :)
' Description:It opens ALL CD-trays in the computer, u can also edit the source so that u can make only the CD-RW pop out or the DVD-rw ..... :)
' By: <_Nilz_>
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=45322&lngWId=1'for details.'**************************************

'ok, here is the first code, it opens ALL cd-'trays:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next 
End If
'
'The next code opens only the CD-rw:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(1).Eject
Next 
End If
'
'And this one ONLY the DVD-rw:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(2).Eject
Next 
End If
'FOR THE USE OF THE LAST TWO U NEED TO BE SURE 
'THAT THE CD-TRAY IS THERE !!!!! by a little 
'if then u can make yourself :)