CDやDVDドライブを開く、閉じる。
Set WMP=CreateObject("WMPlayer.OCX")
For k=1 To WMP.cdromCollection.count
WMP.cdromCollection.Item(k-1).eject
Next
もし、そのハードがソフトで閉じる機能を持っていれば、
eject()が「開く」、「閉じる」のトグルになります。
もし、WSHが終了しない場合、WMPの修正が出ているようなので、
Windows Updateで直ります。
« VBAからAdobe ReaderでPDFファイルを印刷する。(その2) | トップページ | CDやDVDドライブを開く、閉じる。(その2) »