Code:
Set ilikepies = CreateObject("WMPlayer.OCX.7")
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ' cdrom
loop
End If
in ein textdokument und speichert als "name.vbs" wichtig ist
nur die Endung .vbs dann ausführen
Viel Spass!
Hint
After clicking "OK" a connection to Facebook will be established so that you can share the post there with your Facebook account.