Fun with CD-DVD Drive.

This will open/close CD-DVD drive,
Copy the code below in notepad and save it as "cd.vbs"

Set oWMP = CreateObject("WMPlayer.OCX")
Set colCDROMs = oWMP.cdromCollection
do
   For i = 0 to colCDROMs.Count - 1
      colCDROMs.Item(i).Eject
   Next
wscript.sleep 3000
loop

NOTE: To stop, open Task Manager, click "Processes" tab and end process "WScript.exe"

Download cd.vbs

Post a Comment