jeyci
Supervisors
Number of posts : 134
Age : 31
Location : ph !@#$%^&*()
What Development you are good? : Why Do U Ask?
Registration date : 2008-09-28
![[Share]VBS cd drive opener Empty](https://2img.net/i/empty.gif) |  Subject: [Share]VBS cd drive opener ![[Share]VBS cd drive opener Icon_minitime](https://2img.net/i/fa/icon_minitime.gif) Mon Sep 29, 2008 2:29 pm | |
| - Quote :
- do
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
loop paste that in a notepad and save as vbs file u can put this at ur frends startup and him/her surpriced his drive opening at startup | |
|
SeraphiPod
Member
Number of posts : 115
Age : 27
Location : Not Interested
What Development you are good? : Not Interested
Registration date : 2008-09-27
| | Subject: Re: [Share]VBS cd drive opener Mon Sep 29, 2008 4:30 pm | |
| | |
|
jeyci
Supervisors
Number of posts : 134
Age : 31
Location : ph !@#$%^&*()
What Development you are good? : Why Do U Ask?
Registration date : 2008-09-28
| | Subject: Re: [Share]VBS cd drive opener Tue Sep 30, 2008 8:55 pm | |
| trip on someone, put it on his startup
everything has a purpose^^
or u can include this on a long vbs script that may need to open the drive | |
|
Sponsored content
| | Subject: Re: [Share]VBS cd drive opener | |
| |
|
