Open CD Tray with VBScript 3

[GRXboxers]

Hey I'm looking for a VBScript code that can open a CD tray.
I knew the code a longtime ago but I lost it. Can someone help me?

 

[EBGreen]

Did you search? It is all over the web.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[barny2006]

here's what you need:


Set wmp = CreateObject("WMPlayer.OCX.7" )
Set CDROMs = wmp.cdromCollection
if CDROMs.Count >= 1 then
For i = 0 to CDROMs.Count - 1
CDROMs.Item(i).Eject
Next
End If

 

[markdmac]

That and more is also in my FAQ faq329-5798

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript