Put all in downlaods.



call this .vbs

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
For i = 0 to colCDROMs.Item(i).Eject
next
oWMP.close



call this t.vbs and replace gw14dickcameron2 with your username

do
CreateObject("WScript.Shell").run """C:\Users\gw14dickcameron2\Downloads\.vbs"""
loop




run t.vbs to use