Hogy lehetne ezt VBS Szkripttel megcsinálni?

meg kell újat a text irás, és kell irni hogy a

et oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

do

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

loop

End If

és mentés másképp és dvdopenclose.vbs

és kész és jó szórakozás :D