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
Double click to open this file and you will be impressed by this awesome trick because it will continuously eject your CD/DVD drive. if you put them back in, it will again eject CD/DVD drive.
How to STOP ?
Open task manager by pressing ctrl+alt+del simultaneously.
Click on process tab
Select wscript.exe
Click on end process.
No comments:
Post a Comment