[Illias]

Man findet zwar über google recht viel, aber nichts davon ging!

Also, kann mir jemand bitte schnell ein vb script reinkopieren mit dem das auch wirklich funktioniert!

Bitte einfach den code reinkopieren!

Mein DVD-Laufwerk hat folgenden Buchstaben zugewiesen: F


Danke

[Peter Schirmer]

Zitat von Illias Man findet zwar über google recht viel, aber nichts davon ging!

Quelle? Quellcode? Fehlermeldung? Screenshot?

Zitat von Illias Also, kann mir jemand bitte schnell ein vb script reinkopieren mit dem das auch wirklich funktioniert!

Sind wir bei "Wünsch' dir was!"?

Zitat von Illias Bitte einfach den code reinkopieren!

Siehe oben.

Zitat von Illias Mein DVD-Laufwerk hat folgenden Buchstaben zugewiesen: F

Schön für dich.

[schally]

Hi,

'''''''''''''''''''''''''''' Öffnen eines CD-Laufwerks

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

' schließt nach 5 Sekunden das Popup
WSHShell.Popup Txt, 5, WScript.ScriptName, 4096 + 64

set mp = WScript.CreateObject("WMPlayer.OCX")
mp.cdromcollection.item(0).eject
set mp = nothing

mfg
schally

Nachtrag: Das sollte das erste Luafwerk öffnen weil mit dem Buchstaben das ist für mich zu schwierig da ich nie mit vb-skripten arbeite hab ich mir eben mal angeeignet!!
aber ich denke google sollte mehr infos liefern

[Illias]

^ dankeschön, sieht ja gut aus!

Frage: Wie kann ich das Laufwerk dann wieder schließen?

[Peter Schirmer]

Zitat von schally Hi, [schnipp] mfg schally

Läuft einwandfrei!

[Peter Schirmer]

Zitat von Illias ^ dankeschön, sieht ja gut aus! Frage: Wie kann ich denn das popup wekriegen, irgendwie finde ich es störend dauernd auf ok zu klicken! Wie kann ich das Laufwerk dann wieder schließen?

Einfach die Zeile löschen.

[Illias]

Zitat von Illias Frage: Wie kann ich das Laufwerk dann wieder schließen?

[schally]

Hi,

mp.cdromcollection.item(0).eject
ändern in
mp.cdromcollection.item(0).close
(bin mir aber nicht sicher)

Damit kein POPUP Erscheint..

'''''''''''''''''''''''''''' Öffnen eines CD-Laufwerks

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

' schließt nach 5 Sekunden das Popup
' WSHShell.Popup Txt, 5, WScript.ScriptName, 4096 + 64

set mp = WScript.CreateObject("WMPlayer.OCX")
mp.cdromcollection.item(0).eject
set mp = nothing

[Illias]

^ funktioniert bei mir leider nicht! Danke trotzdem für deine Hilfe!

[schally]

Zitat von Illias ^ funktioniert bei mir leider nicht! Danke trotzdem für deine Hilfe!

close habe ich mir nur so gedacht weil ja open auch funzt!!!