Originally posted by Tuhoaja
Why just dont post the script here,
Set oWMP = CreateObject(“WMPlayer.OCX.7“)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
I think this is what you mean, if its not sorry I'm new to all this:carling:
---------- Post added at 05:23 AM ---------- Previous post was at 05:21 AM ----------
This is his script,
do
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 ' cdrom
End If
loop