Notepad Trick to Open and close CD/DVD Drive

    Open Notepad.
    Copy the code given below onto the notepad file:

    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

    Save it as “Anything.VBS”.

Posted in: COMPUTER