Txt = "Jetzt gehts gleich auf . . . " 

Set WSHShell  = WScript.CreateObject("WScript.Shell")  

WSHShell.Popup Txt, 10, WScript.ScriptName, 4096 + 64 

set mp = WScript.CreateObject("WMPlayer.OCX") 

    mp.cdromcollection.item(0).eject 

set mp = nothing 

Txt = ". . . jetzt ist es auf, das CD-Laufwerk!" 

WSHShell.Popup Txt, 10, WScript.ScriptName, 4096 + 16 

 

' WScript.Sleep 10*1000 

 

WScript.CreateObject("WScript.Shell").Popup "Jetzt gehts wieder zu . . . ", 10, WScript.ScriptName, 4096 + 48 

WScript.CreateObject("WMPlayer.OCX").cdromcollection.item(0).eject 

WScript.CreateObject("WScript.Shell").Popup "Jetzt ist das Laufwerk wieder zu . . . wenn es kein Notebook ist!", 10, WScript.ScriptName, 4096 + 32