.VBSでのCDトレイの簡単な閉じ方。

CDトレイの簡単な閉じ方。（ソフトを使うのはあんまり好きじゃない。）

最初、コマンドプロンプトでCDできないかな？(linuxだったらできるんだよね。)

と思っていたんだけど、

どうやら、MCIという特殊な命令を出さないと、いけないため、難しいらしい。

でも、下記の文をメモ帳で作成して、.vbs形式で保存後、そのファイルを実行すると一応できる。

Dim wmp

Set wmp = CreateObject(“WMPlayer.OCX”)

wmp.cdromcollection.getByDriveSpecifier(“d:”).eject()

OK=MsgBox (“閉まるよぅ”, OK)

wmp.cdromcollection.getByDriveSpecifier(“d:”).eject()

本当にできた。

感謝・感謝。

参考

http://blog.glx.jp/article/112424911.html