LiveCode Forums.

Good Day...

Was wonder if anyone knew of a way to control a computers CD/DVD drive door? We need a way to open and close the door on the drives remotely, we can handle the remotely part, but not the opening and closing part (in live code).

It is for use in Elementary schools with PC's. (We handle it on Macs through ARD).

~David

Hi David,

There's no LiveCode command to directly control a cd tray, however...
you can use vbScript.

Place a button.
Add this to the mouseUp

on mouseUp
do the cOpenTray of me as "vbScript"
end mouseUp

Create a Custom Property for the button named cOpenTray

Put this in the Custom Property Contents

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
For i = 0 To colCDROMs.count-1
colCDROMs.item(i).eject
Next
oWMP.close

Only tested on XP.