'*** v5.9 *** www.dieseyer.de *******************************
'
' Datei:  cd-lw-ermitteln.vbs
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de
'
' ermittelt, ob eine best. CD eingelegt ist
'
'************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

MsgBox CDLwTest("SU930"), , WScript.ScriptName

WScript.Quit

'*** v5.9 *** www.dieseyer.de *******************************
Function CDLwTest( Text )
'************************************************************

  Dim fso         : Set fso       = CreateObject("Scripting.FileSystemObject")
  Dim DriveList   : Set DriveList = fso.Drives
  Dim Lw

        CDLwTest = "Falsche CD im Laufwerk."
   For Each Lw in DriveList 
      if 4  = Lw.DriveType  Then ' CD-Laufwerk
'     if 4  = Lw.DriveType  Then ' Wechseldatenträger
        If Lw.IsReady Then

          ' If InStr( UCase( Lw.VolumeName ) , UCase( Text ) ) Then CDLwTest = Lw.VolumeName 

            If InStr( UCase( Lw.VolumeName ) , UCase( Text ) ) Then CDLwTest = Lw.DriveLetter & ":\"

        End If    
      End If    
   Next

End Function ' Function CDLwTest( Text )