Cool office prank

[franklin]

Script that will pop out the CD tray at random and say "I'm a Lakers fan".


Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
a=Array(78,69,86,69,82)
b=Array(71,79,78,78,65)
c=Array(71,73,86,69)
d=Array(89,79,85)
e=Array(85,80)

f=Array(a,b,c,d,e)
dim m
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
'colCDROMs.Item(i).Eject
Next
for each g in f
m=""
for each h in g
m = m + cStr(chr(h))
next
msgbox m,4114
next
For i = 0 to colCDROMs.Count - 1
'colCDROMs.Item(i).Eject
Next
End If
'wscript.sleep 120000
wscript.sleep 10000
loop


Save as MyScript.vbs file in notepad under all files

 

[Dr. Jones]

What
The
****

 

[Dr. Jones]

How bout just **** the guys wife that site in the cubicle next to you?

 

[VINYLONE]

TULT as all get out.

 

[LogGrad98]

How bout just **** the guys wife that site in the cubicle next to you?

That gets old.

 

[LogGrad98]

Script that will pop out the CD tray at random and say "I'm a Lakers fan".


Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
a=Array(78,69,86,69,82)
b=Array(71,79,78,78,65)
c=Array(71,73,86,69)
d=Array(89,79,85)
e=Array(85,80)

f=Array(a,b,c,d,e)
dim m
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
'colCDROMs.Item(i).Eject
Next
for each g in f
m=""
for each h in g
m = m + cStr(chr(h))
next
msgbox m,4114
next
For i = 0 to colCDROMs.Count - 1
'colCDROMs.Item(i).Eject
Next
End If
'wscript.sleep 120000
wscript.sleep 10000
loop


Save as MyScript.vbs file in notepad under all files

I like it. When I worked at amazon I had similar script once that would randomly rotate their screen 90 degrees or 180 degrees upon unlocking their computer. We had one also that would swap the buttons on the mouse randomly, but that one was a bugger to move, you know, because flipping the mouse buttons. Amazon was great for that stuff because the software guys would get stir-crazy.

 

[Jazz Insider]

computers at my office no longer have CD trays, being obsolete and all, but i bet this was a funny prank back in OP's day.

 

[moevillini]

Script that will pop out the CD tray at random and say "I'm a Lakers fan".


Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
a=Array(78,69,86,69,82)
b=Array(71,79,78,78,65)
c=Array(71,73,86,69)
d=Array(89,79,85)
e=Array(85,80)

f=Array(a,b,c,d,e)
dim m
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
'colCDROMs.Item(i).Eject
Next
for each g in f
m=""
for each h in g
m = m + cStr(chr(h))
next
msgbox m,4114
next
For i = 0 to colCDROMs.Count - 1
'colCDROMs.Item(i).Eject
Next
End If
'wscript.sleep 120000
wscript.sleep 10000
loop


Save as MyScript.vbs file in notepad under all files

Is there a mobile version?

 

[VINYLONE]

Is there a mobile version?

You have a "mobile" with a CD tray? Damn, Moe is on some next level ****.

 

[franklin]

How bout just **** the guys wife that site in the cubicle next to you?

Have you ever the average size of government employees? Think about it.