CONTINUALLY POP THE CD DRIVE

   CONTINUALLY POP THE CD DRIVE

    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 “PANKAJ.VBS”.


:- PANKAJ TIWARI