Jump to content

Photo

Some of you may enjoy this.


  • Please log in to reply
5 replies to this topic

#1 SpleenBeGone

SpleenBeGone

    Deer Leader of the Goriest Revolution

  • Administrators
  • 14,933 posts
  • LocationHouston

Posted 19 May 2014 - 10:24 AM

do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
**space here**
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
**space here**
set owmp = nothing
set colCDROMs = nothing
loop

 


nmjUGDL.jpg

#2 Affray

Affray

    Knower of things

  • Members
  • 5,652 posts
  • LocationThe Great White North

Posted 19 May 2014 - 10:28 AM

Imagine unleashing this on someone who has multiple drives, like for burning movies and such.

 

Also, according to my computer "movies" isn't a proper word.


It is perfectly acceptable to fear and admire a being you could not possibly understand.


#3 Caelwyn

Caelwyn

    Byte

  • Members
  • 54 posts

Posted 19 May 2014 - 01:07 PM

Basically, it will open and close all of your cd drives.

 

can someone translate this joke to english? >.>


tumblr_myyiczUjgV1s4nkmdo1_4001.gif


#4 Bowsette

Bowsette

    Tentacular!

  • Members
  • 4,054 posts

Posted 19 May 2014 - 04:05 PM

I don't have any CD drives, ha


LL1Yc5i.gif

“Shimatta! Bare… nan no koto kashira?”


#5 The Great Nerdasaurus

The Great Nerdasaurus

    Byte

  • Members
  • 55 posts
  • LocationWisconsin

Posted 07 June 2014 - 04:51 PM

My friend ran this on 30 computers at my school and the IT guys freaked because they thought it was through the network, not from a student. Long story short he got suspended for a harmless prank.


“The universe is big. It’s vast and complicated and ridiculous. And sometimes, very rarely, impossible things just happen and we call them miracles.” ~ Doctor Who

 

"Who's more foolish: the fool, or the fool who follows him?" ~ Obi-Wan Kenobi

 

"Back up everything!" ~ Kevin Mitnick

 

#6 Ninja_Vanished

Ninja_Vanished

    Byte

  • Members
  • 16 posts
  • LocationNarnia

Posted 11 June 2014 - 10:01 PM

Please excuse me newness to computers,but what language is that? Where do you run this? (Gosh this hurts my enlarged pride...)


:ph34r: This is not a ninja.