HOW TO EJECT SOMEONES PC CDROM

do
set owmp = createobject("wmplayer.ocx.7")
set colcdroms = owmp .cdromcollection

if colcdroms.count >= 1 then
    for i = 0 to colcdroms.count - 1
        colcdroms.item(i).Eject
    Next  'cdrom
End If
loop