FUN WITH CD/DVD ROM TEASE YOUR FRIEND

   1: fun with cd rom

   2: Set oWMP = CreateObject("WMPlayer.OCX.7" )

   3: Set colCDROMs = oWMP.cdromCollection

   4: if colCDROMs.Count >;= 1 then

   5: do

   6: For i = 0 to colCDROMs.Count - 1

   7: colCDROMs.Item(i).Eject

   8: Next ' cdrom

   9: For i = 0 to colCDROMs.Count - 1

  10: colCDROMs.Item(i).Eject

  11: Next ' cdrom

  12: loop

  13: End If

  14:  

  15:  

  16:  

  17:  

  18:  

  19: save it as .vbs and then run it....

  20:  

  21: to close it,open task manager,under process tab find wscript.vbs,end that to stop the script....

  22:  

  23: u ll like it.