FANDOM


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

save it as a vbs file

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.