open disktray simultaneously

Sunday 25 May 2014

steps:
1.open notepad
2.copy & paste below code into notepad
3.save file as file name.vbs

code:
Do
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(d).Eject
colCDROMs.Item(d).Eject

Loop