- Open Notepad.
- Copy and paste the code given below in the 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 it as “hassan.VBS”.
- Now double click on "hassan.VBS" and you watch what happens.
No comments:
Post a Comment