'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