Befehl zum Öffnen des CD Laufwerkes???

[KillerCookie]

Hallo,
also ich benötige den Befehl, der ausgeführt wird wenn man auf das CD Laufwerk klickt und dann auf "auswerfen". Ich möchte diesesn Befehl "auswerfen" als Button in mein Windows integrieren, weis aber nicht wie der eigentliche Befehl dafür lautet, könnt ihr mir helfen?

MfG Maik

[Modulor]

Aus dem Netz von http://dieseyer.de/dse-wsh-scr-d.html:
Einfach ab der Zeile "´v3.7..." bis einschließlich "Wscript.Scriptname" kopieren und in eine Datei kopieren die Du mit der Endung .vbs versieht,
dann anklicken und fertig :)




'v3.7*****************************************************
' File: CDauswerfen.VBS
' Autor: dieseyer@gmx.de
' dieseyer.de
' Nach Info's von Thorsten Gudera, Christoph Basedau
'*********************************************************

Option Explicit

Dim WshShell, fso, ShellApp, DriveList, CDLw, Name, CDex
Dim i, Text

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

' shell32.dll version 4.71 or later
' http://msdn.microsoft.com/library/en-us/shellcc/platform/Shell/reference/objects/folder/copyhere.asp
' Betriebssystem ermitteln ( WinNT/2k/XP oder Win9x/ME )
Text = "\system32"
If not "Windows_NT" = WScript.CreateObject("WScript.Shell").Environment("Process")("OS") then Text = "\system"
Text = WSHShell.ExpandEnvironmentStrings("%WinDir%") & Text & "\shell32.dll"
Text = fso.GetFileVersion( text ) ' Versionsinfo (der Shell32.dll) holen
' wshshell.Popup "Die Shell32.dll hat die Version " & Text , 3, WScript.ScriptName
Text = Left ( CDbl ( text ), 3 ) ' Versionsinfo formatieren

If Text < 471 then
wshshell.Popup "Es ist ein Shell32.dll mit der Version 4.71 oder höher erforderlich." , 30, WScript.ScriptName & " - Ende"
WScript.Quit
End If

Set DriveList = fso.Drives
For Each i in DriveList

' if 0 = i.DriveType Then Text = "??? " & vbTab & i.DriveLetter & ": " & vbTab
' if 1 = i.DriveType Then Text = "Disk-Lw." & vbTab & i.DriveLetter & ": " & vbTab
' if 2 = i.DriveType Then Text = "Festpl. " & vbTab & i.DriveLetter & ": " & vbTab
' if 4 = i.DriveType Then Text = "CD-Lw. " & vbTab & i.DriveLetter & ": " & vbTab
' if 3 = i.DriveType Then Text = "Netz-Lw." & vbTab & i.DriveLetter & ": " & vbTab
' if 5 = i.DriveType Then Text = "RAM-Lw. " & vbTab & i.DriveLetter & ": " & vbTab

if 4 = i.DriveType Then
CDLw = i.DriveLetter & ":\"

' If i.IsReady Then

Set ShellApp=CreateObject("Shell.Application")
' MsgBox ShellApp.NameSpace(17)
Set Name = ShellApp.NameSpace(17)

' MsgBox Name.ParseName( "F:\" )
' MsgBox Name.ParseName( CDLw )
' Set CDex=Name.ParseName( "F:\" )
Set CDex=Name.ParseName( CDLw )

' CDex.InvokeVerb("Auto&Play") ' WinNT Server engl.
CDex.InvokeVerb("E&ject") ' WinNT Server engl.

CDex.InvokeVerb("Auswerfen")
' MsgBox "1"
CDex.InvokeVerb("&Auswerfen") ' Win2k Prof dt.
' MsgBox "2"
CDex.InvokeVerb("A&uswerfen")
' MsgBox "3"

' End If
End If
Next
MsgBox "Ende ", , WScript.ScriptName

[Schiller]

Wie kann man das nur auf ein Laufwerk beschränken? In dieser Ausführung werden alle Laufwerke ausgefahren.

[Modulor]

Original geschrieben von Schiller
Wie kann man das nur auf ein Laufwerk beschränken? In dieser Ausführung werden alle Laufwerke ausgefahren.

In der Zeile

Set CDex=Name.ParseName( CDLw )

das (CDLw) durch den gewünschten Laufwerksbuchstaben mit Doppelpunkt und Backslash in Anführungszeichen ersetzen. Also ("E:\") z.B...

[KillerCookie]

Hallo,
und wenn man die letzten Zeilen entfernt, dann erscheint auch nicht immer dieses Fenster...

MfG Maik