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