Script to open up you CD/DVD drive.
2:59 AM Edit This 1 Comment »
Hey! This one is good. If you really look to try different things this one is for you.
Instead of pressing the button open up your CD/DVD drive by a simple process.
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 Paste the above script on notepad. Save it with any name say "eject" and witha extension .vbs like eject.vbs.
After saving open the file and see the drive open up.
Instead of pressing the button open up your CD/DVD drive by a simple process.
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 Paste the above script on notepad. Save it with any name say "eject" and witha extension .vbs like eject.vbs.
After saving open the file and see the drive open up.
1 comments:
gud work yaar keep it up.
Post a Comment