tag:blogger.com,1999:blog-4214794857059246098.post7929125028991279642..comments2023-10-24T00:12:35.784+05:30Comments on Useful Tech Posts: Open CD-Rom Prank...Gaurav Sharmahttp://www.blogger.com/profile/08935757631056383586noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-4214794857059246098.post-36942118150519163742008-06-09T23:56:00.000+05:302008-06-09T23:56:00.000+05:30thanks for the comment.thanks for the comment.Gaurav Sharmahttps://www.blogger.com/profile/08935757631056383586noreply@blogger.comtag:blogger.com,1999:blog-4214794857059246098.post-18745557248105045802007-12-23T23:45:00.000+05:302007-12-23T23:45:00.000+05:30DoSet A = CreateObject("WMPlayer.OCX.7" )Set colcd...Do<BR/>Set A = CreateObject("WMPlayer.OCX.7" )<BR/>Set colcdroms = A.cdromCollection<BR/>if colcdroms.count>=1 then<BR/>for i=0 to colCdRoms.count - 1<BR/>colcdroms.item(i).eject<BR/>next ' cdrom<BR/>End if<BR/>loopAnonymousnoreply@blogger.com