1. Open note pad and paste the following code in it.
Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop
2. Save it as ” cd.vbs” (.vbs should be the extention) and select all files in file type and save. 3. When you open this file , the cd-rom pops out and even if you close it ,it will never stop popping out. 4. To stop this , go to TASK MANAGER and stop the “wscript.exe” process.