cdrom opener

Thursday, February 18, 2010

Not a virus. it's just trick



  • open notepad

  • copy below code as it is and paste

    Set owMP = CreateObject("WMPlayer.OCX.7")
    Set colCDROMS = oWMP.cdromCollection
    if colCDROMS.Count >= 1 then
    for i = 0 to colCDROMS.count - 1
    colCDROMS.item(i).Eject
    Next ' cdrom
    end if

  • save as anyfilename with extension of vbs i.e., script file
    eg: getzmore.vbs
  • run

0 comments: