Continually Pop out CD / DVD drive

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 as  something.VBS

Comments

Popular posts from this blog

Create Quality and ClickBait Thumbnail

FRIDAY THE 13th or DISAPPOINTING FRIDAY THE 13th

Youtube Video Presentation