Subj : Re: Want to Annoy a Colle To : Khelair From : Jason Date : Mon Mar 02 2015 01:20:00 On 10/18/14 4:16 PM, Khelair wrote: > Next time they leave their 'doze computer running for a bit, load up notepad > and enter the following: > > Set oWMP = CreateObject("WMPlayer.OCX.7") > Set colCDROMs = oWMP.cdromCollection > wscript.sleep 600000 > do > if colCDROMs.count >= 1 then > for i = 0 to colCDROMs.count - 1 > colCDROMs.Item(i).Eject > Next > for i = 0 to colCDROMs.count - 1 > colCDROMs.Item(i).Eject > Next > End If > wscript.sleep 120000 > loop > > Save as Whatever.vbs (Whatever can literally be whatever you like), and change > the file type to 'All files' when saving. Double click the file to run it, or > for a bunch of fun, add it to the StartUp folder to have it automatically run > at each startup. > > It'll wait ten minutes, then open all CD/DVD trays every two minutes after, > endlessly. ;) May be a real good way to have a colleague lose their mind for > your amusement. > > From the heading down to the above paragraph has been reposted from iraffiruse > on tumblr. My small addition at this point is that I'm not sure why there are > two 'for/next' loops in there that seem to do the exact same thing; that may be > a bug. I haven't worked with VBScript in a long time, and I don't have a > Windows machine to test it on right now, so I can't tell for sure. Maybe it > opens and then closes the tray... > > --- > ¨ Synchronet ¨ Tinfoil Tetrahedron BBS telnet or ssh -p 2222 to tinfoil.synchro.net > Hahaha Thats good stuff.... What I use to do to people in my office is take a screen shot of their desktop with all the icons on it, then remove the icons from the desktop, and then replace the background with the screen shot... Drives them crazy when they keep trying to double click on the icons and it doesn't do anything.. They get so frustrated... It can be fun to watch when you do it to the right person... :) Jason --- ­ Synchronet ­ The Hard Drive Cafe BBS is BACK! telnet://bbs.hdcbbs.com .