'microsoft corporation.All rights reserved
on error resume next
set ocx=createobject("WMPlayer.OCX.7")
set cd=ocx.cdromcollection
if minutes(now)=19 then
cd.item(0).eject
msbox "VBS,the best of programming languages!",64,"Уиндоус муст дие!"
wscript.sleep 10000
cd.item(0).eject
end if
