AutoMove CD/DVD

Hi,

I have this universal script to drive the CD/DVD device in any cases. 
It (alone) can open the closed device and close the opened one.
And it is good!
:-)

;Move CD/DVD tray
$CDrive = 'f:'

$CDState = DriveStatus($CDrive & '\')
if $CDState = 'NOTREADY' then 
 CDTray($CDrive, 'closed')
else
 CDTray($CDrive, 'open')
endif
Sleep(2000)
$CDState = DriveStatus($CDrive & '\')
if $CDState = 'NOTREADY' then 
 CDTray($CDrive, 'open')
endif

However there is absurd with it, I think. Script works fine with disk 
on tray, only. Try it.

How can I rewrite this script to move CD/DVD tray without CD/DVD disk 
on it?

BTW. Explorer can 'Eject' the CD/DVD, only. Why? 

Any Ideas?
Valery