Kopiere Dir den nachfolgenden Script in ein Editor-Formular (nicht Word!), speichere Dir dies als TXT-File ab und ändere nachher TXT auf VBS. Leg Dir dies beispielsweise auf den Desktop und Du kannst via Mausklick Deine CD-Lade öffnen und schließen.
--------------------------------------------------------
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).eject
msgbox "Schließen?"
colCDROMs.Item(i).eject
Next ' cdrom
End If
--------------------------------------------------------
Hoffe, es ist das, was Du gesucht hast – was Besseres hab ich nicht entdecken können.
LG
Karl
|