kopiert euch den code
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!
Code:
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!
Hinweis
Nach Klick auf "OK" wird eine Verbindung zu Facebook oder twitter hergestellt. Dadurch werden ggfs. Daten an diese Plattformen übermittelt.