How To Make Your CDRom Open As Many Times As You Want

Open Notepad and type this in:

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
 colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
 Next ' cdrom
 End if

'each "colCDROMs.Item(i).Eject" makes the cdrom open and another means shut so if you type it in 50 times it will open and shut 25 times."
 save it as whatever.vbs