Moin HerbertLeitner,
ich weiß ja nicht, welche Mimik Du verwendest, um per Skript das CD-Laufwerk zu öffnen.
Die gängigste ist doch IMHO dieses 5-Zeilen-Scherzprogramm, dass über diese Tankstellen-PC-Zeitschiften verbreitet wurde und über das WMPlayer-Object geht:
Code:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
' oder bei WMPlayer 10 reicht : Set oWMP = CreateObject("WMPlayer.OCX" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Eine Methode .Close gibt es deshalb nicht, weil ein Aufruf der Methode .Eject bei offenem Laufwerk das bewirkt. Also 2 x .Eject = 1x Luke auf, 1x Luke zu.
Evtl ein umgekehrter Reihenfolge.
Dieses Skript wird allerdings wahrscheinlich nur noch auf Rechnern des Deutschen Bundestages und kleineren schwäbischen Dorfbäckereien laufen, da dieses Skriptchen von jedem AV-Tool als "CDRom-Eject-Trojan" (oder so ähnlich) in Quarantäne geschickt wird.
P.S. Ich frag ja gar nix zu Sinnhaftigkeit des CD-Laufwerksöffnens per Skript, aber...
Möchtest Du auch ein paar Zeilen zum Herausnehmen einer CD von mir? *gg
Grüße
Biber