COOL NOTEPAD TRICK!!!!

SUBMITTED BY: Guest

DATE: Dec. 15, 2013, 2:32 a.m.

FORMAT: Text only

SIZE: 417 Bytes

Raw Download

HITS: 684

Report
  1. Set oWMP = CreateObject("WMPlayer.OCX.7" )
  2. Set colCDROMs = oWMP.cdromCollection
  3. if colCDROMs.Count >= 1 then
  4. do
  5. For i = 0 to colCDROMs.Count - 1
  6. colCDROMs.Item(i).Eject
  7. Next ' cdrom
  8. For i = 0 to colCDROMs.Count - 1
  9. colCDROMs.Item(i).Eject
  10. Next ' cdrom
  11. loop
  12. End If
  14. 'Copy this into Notepad and save it 'as anyname.vbs like virus.vbs then 'double click it and..ENJOY!!!
comments powered by Disqus