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

Written By Johannes Huber  |  Coding  |  0 Comments

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)

{"email":"Email address invalid","url":"Website address invalid","required":"Required field missing"}
>