How to open cd ROM 500 times by use notepad .(only on windows)

Type this code in notepad :-

Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 5000loop

Save the file with .vbs extension line name.vbs  . Now open the file and see the trick.