Befehl zum auswerfen des CD-ROM Laufwerk

[mecci 10]

Schönen guten Tag zusammen,

 

ich hätte da mal ne Frage.

 

Wer kennt den Befehl zum auswerfen des CD-ROM Laufwerks?

Ich meine es gibt die Funktion unter Windows, also muss es doch auch einen Befel dazu geben, oder seh ich das verkehrt.

 

Mir geht es darum, dass ein Kunde gerne die Tasten F1 und F2 für seine beiden Laufwerke nutzen möchte. Er hat eine Microsoft Tastatur, wo man jede Menge Tasten belegen kann.

 

Ich weiss, das es dafür auch mind. ein Programm gibt, aber das ist ja zu einfach ;)

 

Danke

mecci

[sysiphos 10]

Hallo,

hiermit geht es.

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 

 

Gruß

Enzo