CD / DVD Laufwerk öffnen mit VB Script (VBS)

Mit einem VB Script (VBS) ist es möglich ein CD / DVD Laufwerk öffnen zu können. Dies ist unter Umständen praktisch, wer eine eigene Installationsroutine baut mit der Abfrage “Legen Sie nun die CD / DVD ein”. Ein VB Script muss mit der Dateiendung .vbs abgespeichert werden und ist dann sofort lauffähig.

JuralMin / Pixabay

 

CD / DVD Laufwerk öffnen mit VB Script (VBS)

Um das Laufwerk zu öffnen, ist nur dieses kleine Script notwendig. Dieses sollten wir zum Beispiel unter “eject.vbs” abspeichern. Editieren kann man solche Dateien mit dem ganz normalen Texteditor.

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
colCDROMs.Item(i).Eject
Next ' cdrom
end if

(eject.vbs)

Dieses VB Script führen wir dann einfach mit einem Doppelklick aus und unser CD / DVD Laufwerk sollte sich öffnen 🙂

 

Auch interessant?

SendKeys verwenden in VB Script (VBS)

Johannes Huber
 

In seiner Freizeit macht Johannes nichts lieber, als für ITnator Beiträge zu schreiben. Input bekommt er hierfür von Problemen in der IT Administration von Servern, Clients und vielen weiteren IT Komponenten.

Click Here to Leave a Comment Below 0 comments