Open CD Drive with a VB Script.?

Question

How can I open my CD Drive with a Virtual Basic Script?
P.S.: I would like it to loop!!! :D

Answer 1

I wrote a VB 6 program to do this, you could check it out and perhaps

you could alter the code to suit your VB Script program.



You can download it here:



http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=24562&lngWId=1



Regards,



John

Answer 2

I don't know a way to do it in pure VB. However, you can install Wizmo (it's free, useful for other things too, and only a single 38k executable). Then use the Shell function ( http://msdn.microsoft.com/en-us/library/xe736fyk(VS.71).aspx ). It should be just be:



Dim ProcID As Integer

ProcID = Shell("C:\wizmo.exe open", AppWinStyle.MinimizedNoFocus)



This assumes you placed the wizmo executable in the root of the drive.

Answer 3

There should be a tiny hole on the front of your CD drive. Unbend a paperclip and stick it in the hole and it should partially open the door. You can safely open it the rest of the way. It should work normally from then on unless something is wrong with the CD drive.