CD Drive FUN - VBscript code

CD Drive FUN - with VBScript

its a VBSCRIPT CODE fun programme for CD Drive's eject and insert action...... open notepad and paste all code below to notepad and save file as ".VBS" extention. and double click it.......

====================
set wmp =
createObject("wmplayer.ocx.7")
set drives = wmp.cdromCollection
sub open_saysame()
on error resume next
if drives.count >= 1 then
for i = 0 to drives.count - 1
drives.item(i).eject()
next
end if
loop
end sub

open_saysame()
====================

for information purpose only