Looking for a Funny VB Script to Eject CDROM

By | September 21, 2012

Looking for a Funny VB Script to Eject CDROM

To have a little fun with my Colleagues I searched for a VB script to eject the CDROM and here it is,

Set oWMP = CreateObject(“WMPlayer.OCX.7″)

Set colCDROMs = oWMP.cdromCollection

If colCDROMs.Count >= 1 Then

For i = 0 To colCDROMs.Count – 1

colCDROMs.Item(i).Eject

Next ‘ cdrom

End If

Copy the code to a text editor and save it as EjectCDrom.vbs. The system Antivirus program detected the funny VB and categories is as JOKE to block it :)

Cheers!!

Melbin Mathew

www.techiesweb.com

Melbin Mathew

I am Melbin Mathew, Systems Engineer from Kerala, India. I live with my parents, daughter and my wonderful wife. I graduated in 2004 with a bachelor’s degree in Electronics and Hardware from Mahatma Gandhi University, Kottayam and completed certification in MCITP, RHCE, CCNA, VCP ...Read More