/ http://www.slideshare.net/images/logo.gif / 際際滷Share feed for 際際滷shows by User: abaywhye https://cdn.slidesharecdn.com/profile-photo-abaywhye-48x48.jpg?cb=1523564231 http://www.d1gdo.com/admin/ http://www.ganool.com/2011/10/pes-2012-skidrow.html 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